Проблемка с ModalResult

[Arkuz]

Здравствуйте. Подскажите как исправить?

2 кнопки - Ок и Отмена. По ок считываются данные из edita. Пробоема в том, что если edit пустой, то сообщение выскакивает, что edit пуст, но далее окошко закрывается. Вот мне надо сделать так, чтобы после предупреждения о пустоте edita окно не закрывалось, пока не нажмёшь отмену или edit перестанет быть пустым.

Пробовал через CanClose, но тогда через крестик на форме не зактрывается, А надо чтобы крестик или отмена закрывала.
И при ОК тоже закрывалась, но если edit не пуст...

Как поступить?

[nXs]

if Edit1.Text<>'' then
begin
....
Form.Close;
end else
begin
....
end;

[Arkuz]

стоит modal result, форма всегда сама завкрывается при нажатии на кнопку, которая имеет свойство modal result. Ваш код для моего случая не нужен

[ArtInt]

Уберите у формы кнопку закрыть ("крестик"), можно через свойства формы.
И уже когда нажимаете на кнопку Ok или Отмена там делаете проверку, если поле пустое то выводим сообщение иначе записываем данные и, например, закрываем форму.

А если так нужен крестик закрытия, то делаем кнопку самостоятельно с данной пиктограммой и там прописываем наше условие закрытия.

[Arkuz]

ясно, спасибо.

[пауэрлифтинг]

if Edit1.Text<>'' then
showmessage('едит пуст')
else ModalResult:=idok

[Andrei]

Пишите процедуру на событие OnCloseQuery вашей формы что-то наподобии:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := False;
 if length(lblEditName.Text) > 0 then CanClose := true  
 else ShowMessage('едит1 пуст');
end;

[evg_m]

procedure Tform.buttonOkclick(sender: TObject);
begin
if edit1.text<>'' then
//  modalresult:=mrok
else 
  modalresult:=mrnone;
end;

// для события Edi1.onchnage
procedure Tform.Editchnage(sender: TObject);
begn // на кнопку нельзя будет нажать пока в edit1 ничего нет
  self.buttonOk.enabled:=(self..edit1.text<>'');
end;