Вниз
Скачать: CL | DM;

Как посласть сообщение о нажатие кнопки "Отмена" в MessageDLG?   Найти похожие ветки 

← →
Express   (2007-03-28 21:15) [0]

Здрвавствуйте!

Подскажите как послать сообщение о нажатие кнопки "отмена" в MessageDLG?


← →
Leonid Troyanovsky ©   (2007-03-28 21:59) [1]


> Express   (28.03.07 21:15)  

> Подскажите как послать сообщение о нажатие кнопки "отмена"
> в MessageDLG?

Почему, собс-но, сообщение и WinAPI?
Например:

procedure TForm1.Timer1Timer(Sender: TObject);
var
df : TForm;
begin
df :=  Screen.ActiveForm;
if df.ClassNameIs("TMessageForm") then
  begin
     df.Close;
     (Sender as TTimer).Enabled := False;
  end;
end;

--
Regards, LVT.


← →
easy ©   (2007-03-28 22:02) [2]


> Leonid Troyanovsky © (28.03.07 21:59) [1]


> Почему, собс-но, сообщение и WinAPI

человек 1С закрывает..
http://delphimaster.net/view/1-1174929830/


← →
Express   (2007-03-28 22:41) [3]


> easy ©   (26.03.07 22:49) [28]
> keybd_event (VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0 );keybd_event
> (VK_RETURN, 0, KEYEVENTF_KEYUP, 0 );


Не работает, как правильно написать?


← →
easy ©   (2007-03-28 23:21) [4]

> на котором 3 кнопки Yes(Да) или Cancel (Нет)
> Третья - "Отмена"
я таки не понял, которая отмена. (Don`t  khow)?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c
2-1188455990
mfender
2007-08-30 10:39
2007.09.23
TIdPOP3 - ошибка


15-1188044874
Бася
2007-08-25 16:27
2007.09.23
Эксперт для Делфи


2-1188279351
AllDer
2007-08-28 09:35
2007.09.23
Сообщение смены разрешения


2-1188303538
gentos
2007-08-28 16:18
2007.09.23
Sheets("Лист" + Str(counter)).Select


1-1184085640
newQA
2007-07-10 20:40
2007.09.23
WebBrowser




   Наверх