T
tony wong
Unregistered / Unconfirmed
GUEST, unregistred user!
最近学"消息",见通常消息标识与消息变量是"一致的"(我的话),如下就不"一致",
例:TWMSIZE变量与WM_PAINT消息标识,下面程序就这样,已获通过.本人百思不得其解,
还望大虾出手指点!(100分)
private
procedure WMSize(var message: TWMSIZE); message WM_PAINT;
implementation
procedure Tform1.WMSize(var Message: TWMSize);
begin
inherited;
if Width>300 then Width:=300;
if Height>300 then Height:=300;
end;
例:TWMSIZE变量与WM_PAINT消息标识,下面程序就这样,已获通过.本人百思不得其解,
还望大虾出手指点!(100分)
private
procedure WMSize(var message: TWMSIZE); message WM_PAINT;
implementation
procedure Tform1.WMSize(var Message: TWMSize);
begin
inherited;
if Width>300 then Width:=300;
if Height>300 then Height:=300;
end;