关于消息捕捉(WM_SIZE) Application.OnMessage只能处理用perform或者用postmessage发送的消息,对sendmessage发的消息无法处理,在一本书上讲了这个问题的,叫Delphi 5开发者指南吧,价格是138,封皮是金黄色的,非常厚的那本 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 直接捕捉主窗口的最小化消息嘛!如:type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; private procedure WMSize(var Message: TWMSize); message WM_SIZE; { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.WMSize(var Message: TWMSize);begin Label1.Caption := IntToStr(Form1.Width);end; Application.OnMinimize或我是用WM_NCLBUTTONDOWN,然后判断Message.HitTest=HTREDUCE,这就是按了最小化按钮 dbgrideh的数据库表格控件的简单问题 如何突破(非破坏)还原精灵的限制往硬盘里写东西 软件快作完了,准备做共享。大家来评评,先发个demo 请教,关于IE的另存为 用QUICKREP打印时怎么能动态设置打印行数!!!! 求助,谁能帮我想一个方案!(关于跨平台的文件操作) .dcu是什么文件,什么用的? 寻求帮助文档 G.723.1播放方案征集!如果有成熟方案可以考虑商务购买问题!up有分。 开发ERP的程序员请问? 怎样将jpg文件转换为bmp文件? 一个关于表格数据输入的问题(急)
如:
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
private
procedure WMSize(var Message: TWMSize); message WM_SIZE;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.WMSize(var Message: TWMSize);
begin
Label1.Caption := IntToStr(Form1.Width);
end;
或
我是用WM_NCLBUTTONDOWN,然后判断Message.HitTest=HTREDUCE,这就是按了最小化按钮