Prozedur bei BEWEGUNG / VERSCHIEBUNG eines Formulars starten

[Matze]

Hi

Zitat von rennkuckuck:

@matze: ich versteh deine antwort leider nicht so.
also es soll weiterhin möglich sein das formular zu verschieben und in der größe zu ändern.
ich versteh nicht wie ich mit dem
procedure WMMOVE(var Msg: TWMMove); message WM_MOVE; dann die bewegung des formulars festestelle?
habe nocht nichts mit message gemacht.

Dann hier mal die ganze Beispielunit:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMMOVE(var Msg: TWMMove); message WM_MOVE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMOVE(var Msg: TWMMove);
begin
  inherited;
  // irgendwas
end;

end.

Die Procedure WMMOVE wird während des Verschiebens des Formulars ausgelöst. Dort, wo

// irgendwas steht, kannst du deinen Code ausführen, der beim Verschieben ausgeführt werden soll.