отменить действие кнопки else

[m1zantrop]

кнопка работает с ДБедит, при нажатии которой заполненный дб вводит имя в базу, если же его забыли заполнить вылазиет сообщение что запонить и только потом можно будет приступить.

begin
if DBEdit1.Text='' then
Application.MessageBox('Необходимо заполнить поле для имени',
'Внимание!', MB_ICONINFORMATION or MB_OK);
else

подскажите, что написать после елсе, чтобы если дб='' кнопка не запускала процессы за которые она отвечает, но работала когда поле будет заполнено. сообщение у меня вылазиет. но дейсвтия всё равно начинаются

[Shouldercannon]

if DBEdit1.Text = '' then
begin
Application.MessageBox('Необходимо заполнить поле для имени', 'Внимание!', MB_ICONINFORMATION or MB_OK);
Exit;
end;
// Запись в БД

[m1zantrop]

Сообщение от Shouldercannon

if DBEdit1.Text = '' then
begin
Application.MessageBox('Необходимо заполнить поле для имени', 'Внимание!', MB_ICONINFORMATION or MB_OK);
Exit;
end;
// Запись в БД

спасибо, но в таком случае не будет вылезать сообщение. и пользователь может не понять, чего от него хотят

[m1zantrop]

а, вот теперь всё) спасибо

[BARNEY]

ну если коротко и с этим куском кода и с маленьким извращением, тогда процедура не прерывается

begin
if DBEdit1.Text='' then
begin
Application.MessageBox('Необходимо заполнить поле для имени',
'Внимание!', MB_ICONINFORMATION or MB_OK);
while DBEdit1.Text='' do
begin
application.procesmesan... //чёто там
end
end
else

[m1zantrop]

допёр, пользователь же может на крестик нажать и всё, как и это предотвратить? подскажите пожалуйста. чтобы при нажатии на крестик, тоже самое вылазило. типо пока не заполнишь поле и не подтвердишь нажатием кнопки, выйти нельзя

[ych_del]

Обрабатывай Form.OnClose:

procedure Form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Trim(DBEdit1.Text) = '' then begin
      Application.MessageBox('Заполните имя', 'Внимание', MB_OK or MB_ICONSTOP);
      DBEdit1.SetFocus();
      Action := caNone;
   end;
end;

[m1zantrop]

Сообщение от ych_del

Обрабатывай Form.OnClose:

procedure Form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Trim(DBEdit1.Text) = '' then begin
      Application.MessageBox('Заполните имя', 'Внимание', MB_OK or MB_ICONSTOP);
      DBEdit1.SetFocus();
      Action := caNone;
   end;
end;

спасибо. а используя этот код

begin
if messagedlg('Вы действительно хотите выйте из программы?,
mtconfirmation, [mbYes, mbNo], 0) = mrNo then
canclose := false;
end;

можно как нибудь ес и ноу заменить на да и нет?)

[ych_del]

Не использовать MessageDlg, а юзать MessageBox. В твоем случае - так:

if Application.MessageBox('Вы действительно хотите выйте из программы?', PChar(Application.Title), MB_YESNO or MB_ICONQUESTION) = mrNo
then CanClose := False;

Или даже вот так:

begin
   CanClose := Application.MessageBox('Вы действительно хотите выйте из программы?', PChar(Application.Title), MB_YESNO or MB_ICONQUESTION) = mrYes;
end;

Вообще, почитай хелп про MessageBox - с ним работать существенно удобнее.

[m1zantrop]

спасибо =)