Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.014 c