Timer Anhalten Während Fenster Verschoben Wird

[Paulman]

Funktioniert doch prima, habs nur mal so getestet

Delphi-Quellcode:

type
  TForm1 = class(TForm)

  private
    { Private-Deklarationen }

    procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;
    procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
begin
  Form1.Color:= clGreen;
  Form1.Caption:=('hey, wo willste denn mit mir hin?');
end;


procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
begin
  Form1.Color:= clRed;
  Form1.Caption:=('nu gut..');
end;

end.

Gruß
Paul