|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Detect a moving form
You must intercept WM_MOVE message.Implementation of this idea is so:
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
private
procedure MyMessage(var Msg: TWMMove); message WM_MOVE;
{ Private declarations }
public
{ Public declarations }
end;
...
procedure TForm1.MyMessage(var Msg: TWMMove);
begin
if Msg.Result=0 then
begin
Label1.Caption:='x - '+IntToStr(Msg.XPos);
Label2.Caption:='y - '+IntToStr(Msg.YPos);
end;
end;
-
More for developers
