Текущий архив: 2004.03.09;
Скачать: CL | DM;
Вниз
Как обработать сообщение от sendmessage? Найти похожие ветки
← →
KJ (2004-02-27 10:37) [0]У меня 2 формы:
Form1:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow("TForm2", "Form2"), WM_CLOSE, 0, 0);
......
end;
Form2:
private
procedure WMClose(var a: TWMClose); message WM_CLOSE;
implementation
procedure TForm2.WMClose(var a: TWMClose);
begin
......
a.Resalt:= 0;
end;
При пошаговом выполнении в форме1 при выполнении sendmessage форма2 просто закрывается и дальше выполняется следующий оператор в форме1, хотя мне нужно чтобы форма2 выполняла в момент закрытия кое-какие действия.
При прямом закрытии формы2 (нажатии на крестик) процедура WMClose работает.
← →
alless © (2004-02-27 10:43) [1]pishi v protedurku:
form2.OnCloseQuery
vse cto tebe hocetsea kogda ona budet zakrivatsea.
← →
Reindeer Moss Eater © (2004-02-27 10:53) [2]procedure (var Msg: TMessage); message WM_CLOSE;
Страницы: 1 вся ветка
Текущий архив: 2004.03.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
