procedure TForm1.btn1Click(Sender: TObject);
begin
close;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
postmessage(btn1.Handle,bn_clicked,0,1);
end;
begin
close;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
postmessage(btn1.Handle,bn_clicked,0,1);
end;
procedure TMainForm.WMClose(var Msg: TMessage);
begin
showmessage('sdfsdsdfsdf');
inherited;
end;
還有如上截取窗體消息也沒有成功