Fenster minimieren und verschieben (frage zur abfrage)

[kingflo]

Hallo zusammen.
Ich wollte mal fragen ob und wie es möglich ist zu prüfen ob auf minimieren geklickt oder das Fenster gerade verschoben wird.
Ich würde bei diesesn Ereignissen nämlich gerne einige sachen angeben. Im OnRezise() kann ich ja auch sagen was passieren soll wenn sich die größe des Fensters ändert, kann man das nicht irgendwie auch beim Verschieben oder minimieren festlegen?

wenn z.B das Fenster minimiert wird möchte ich, dass sich alle Fenster minimieren (application.minimize).

Und wenn der Benutzer Das Fenster verschiebt soll ein anderes Fenster mit verschoben werden.

Ich hoffe ihr versteht mein (blödes) Problem und könnt mir helfen.

[alcaeus]

Hi Florian,

sieh dir mal die TApplicationEvents-Komponente an. Diese hat ein OnMinimize-Ereignis. Bezüglich dem Verschieben, da weiß ich leider auch nichts :oops:

Greetz
alcaeus

[kingflo]

Das funzt leider nicht ich glaube das geht nur beim Hauptformular!
Das Fenster um das es sich handelt ist aber keins :|

[kingflo]

So das mit dem Verschieben hab ich gelöst :mrgreen: falls es jemanden FAQ mäßig interresiert hier wie ich es jetzt gemacht habe

Code:

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

...

procedure TForm1.WMMove(var Message: TWMMove);
begin
  // Die Vorgängermethode WMMove aufrufen
  inherited;
  // Und jetzt unsere eigene Routine:
  // Z.B. in der Titelleiste die aktuellen Fenster-Koordinaten anzeigen
  try
    Caption := IntToStr(Message.XPos) + ':' + IntToStr(Message.YPos);
  except
  end;
end;

Allerdings habe ich das Problem mit dem minimieren immernoch :wall: :cry: