| Цитата(former @ 24.3.2010, 08:54) | противоречит этой (ОК и YES NO)
|
Противоречит ? В чем именно ?
Вот пример, многократно тиражированный в сети.
Взят отсюда: http://www.delphisources.ru/pages/faq/base/add_component_to_message_dialog.html
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
AMsgDialog: TForm;
ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]);
ACheckBox := TCheckBox.Create(AMsgDialog);
with AMsgDialog do
try
Caption := 'Dialog Title' ;
Height := 169;
with ACheckBox do
begin
Parent := AMsgDialog;
Caption := 'Don''t show me again.';
top := 121;
Left := 8;
Width := 140;
end;
case ShowModal of
ID_YES: ;//здесь Ваш код после того как диалог будет закрыт
ID_NO: ;
end;
if ACheckBox.Checked then
begin
//...
end;
finally
ACheckBox.Free;
Free;
end;
end;
|
Так вот, если использовать Show ( без оператора case ) вместо Showmodal, то ответ от пользователя мы не ждем, а идем дальше как и требуется.
Вопрос в том как отследить последующее нажатие на кнопку Ok на форме ? Форма есть, кнопка есть, а отследить невозможно ?
|
)