Не дает выключить форму

[FleXik]

Сделай sButton2.ModalResult:=mrCancel

на какое событие кинуть тогда? если не на OnClick?

[Аватар]

На самой кнопке такое свойство есть

[FleXik]

На самой кнопке такое свойство есть

воу-воу, за 2 года работы с Delphi первый раз увидел это свойство, спасибо, вот теперь с первого раза отлично работает, благодарочка


но еще момент, иногда форма как подвисает, при нажатии Form1 (в любое место, компонент это или где-то еще) раз за разом показывается Form3 хотя я sRadioButton2 не трогаю, мне кажется проблема в Form3.ShowModal=mrOk - может дописать эту строку перед проверкой, чтобы было так:? я думаю что при создании Form1 (а Form3 у нас создается автоматически с Form1 только не показывается без вызова) Form3.ShowMoDal автоматически принимает позицию mrOK и получается такой прикол, хотя я могу и ошибаться, это всего лишь догадки.

begin
Form3.ModalResult:=mrOk;

  if Form3.ShowModal=mrOk then
    Form1.sRadioButton2.Checked:=True
  else
    Form1.sRadioButton1.Checked:=True;

end;

я просто этот прикол не первый раз замечаю, т.е Form3 залагивает и при нажатии OK или Отмена Form3 опять вызывается само по себе... бывает не часто, переодически, но тем не менее бесит.

[Аватар]

Form3.ModalResult:=mrOk;

Это что за чудо в вызывающей форме? И лучше убрать её создание из dpr и при вызове динамически создавать

  Form3:=TForm3.Create(Application);
  if Form3.ShowModal=mrOk then
    Form1.sRadioButton2.Checked:=True
  else
    Form1.sRadioButton1.Checked:=True;
  Form3.Free;

[FleXik]

Аватар, спасибо большое за помощь, если что отпишу в тему сюда.

[superedward]

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

phomm, я и использовал InputBox до этого, но,

во-первых - там шрифт окна по стандарту Microsoft Sans Serif а в проэктах я последнее время всегда использую шрифт Tahoma, я люблю чтобы все было идеально поэтому такие мелочи меня сильно бесят.

во-вторых - мне не понравилась длина кнопок "ОК" и "Отмена" в InputBox + у кнопки "ОК" TabStop стояло в True

+1
Такой же педант, как и я )))))