消息处理问题 我在一个VC工程下,PostMessage出来一个消息,当用HWND_BROADCAST广播时,我用VC写的窗口可以收到这个消息,但是delphi中的窗口不行,有无人知道到底是怎么回事,要怎样处理才可以? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 怎么收不到?type TForm1 = class(TForm) Button1: TButton; ApplicationEvents: TApplicationEvents; procedure Button1Click(Sender: TObject); private { Private declarations } protected procedure WndProc(var Message: TMessage); override; public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin SendMessage(HWND_BROADCAST, $FFFF, 0, 0);end;procedure TForm1.WndProc(var Message: TMessage);begin if Message.Msg = $FFFF then ShowMessage('HWND_BROADCAST'); inherited;end;————————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。———————————————————————————————————— delphi如何修改图标 请教一个delphi操作文本文件的问题 关于异常处理的,sos 数据库报表的打印问题...急! 如何自动生成编号? 用ADO如何在不同数据库中快速移动数据?有没有和BDE的BATCHMOVE差不多的ADO控件? 送分基础题 delphi的Edit如何自动获取剪贴板内的一串字符 这样创建的CheckBox为什么不能显示. 请问TStrings的Delimiter如何用?最好举个例子.谢谢! 请教:用fastreport设计报表,如何出现表格? 急啊,关系饭碗问题啊!!
TForm1 = class(TForm)
Button1: TButton;
ApplicationEvents: TApplicationEvents;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
protected
procedure WndProc(var Message: TMessage); override;
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(HWND_BROADCAST, $FFFF, 0, 0);
end;procedure TForm1.WndProc(var Message: TMessage);
begin
if Message.Msg = $FFFF then ShowMessage('HWND_BROADCAST');
inherited;
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————