Как обработать сообщение от 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.

procedure (var Msg: TMessage); message WM_CLOSE;

Как обработать сообщение от sendmessage? Найти похожие ветки