Eine Form nur in einem bestimmten Bereich bewegen ?

[smart]

Kann man eine Form in der Bewegung einschränken, so dass man eine Form nur in einem bestimmten Bereich bewegen kann?

[leddl]

Automatisch? AFAIK nein. Aber manuell sollte das kein Problem sein.

[PierreB]

Is ganz einfach, du könntest zum Beispiel nen Timer, Intervall auf 10 und dann hau das rein:
if form1.Left > 200 then form1.left := 200;

[Win32.API]

Hi,

Zitat:

Is ganz einfach, du könntest zum Beispiel nen Timer, Intervall auf 10 und dann hau das rein:

Man muss nicht für alles einen Timer nehmen....
Dafür gibt es Messages hier : WM_MOVE.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    procedure WMMove(var Message: TWMMove); Message WM_MOVE;
    { Private declarations }
  public
    { Public declarations }
  end;

.
.
.
.

procedure TForm1.WMMove(var Message: TWMMove);
begin
  inherited;
  if form1.Left > 200 then form1.left := 200;
end;

Win32.API

[smart]

Vielen Dank, für Eure Antworten. Die Lösung von @Win32.API klappt am besten. Von Timern bin ich auch nicht so begeistert. Die nehme ich nur im Notfall.

Einen schönen Sonntag an Euch Allen.

Heike

[PierreB]

Hallo Win32.Api,

stimmt, Timer sind nicht immer so vorteilhaft.

Aber wir haben noch die Begrenzung oben - unten vergessen. Also:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    procedure WMMove(var Message: TWMMove); Message WM_MOVE;
    { Private declarations }
  public
    { Public declarations }
  end;

.
.
.
.

procedure TForm1.WMMove(var Message: TWMMove);
begin
  inherited;
  if form1.Left > 200 then form1.left := 200;
  if form1.top > 150 then form1.top := 150;
end;

[marabu]

Wenn die Nachricht WM_MOVING abgefangen wird, kann man die unerlaubte Bewegung verhindern - mit WM_MOVE macht man sie rückgängig.

Grüße vom marabu