Ereignis beim ziehen eins Fensters über ein anderes

[clock50]

Also, ich habe ein Problem!
1. ich habe eine MDI-Anwendung
2. ein Formular verändere ich mit StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Nun ist es aber so, wenn ich ein anderes Fenster über dieses ziehe, daß diese Procedure nicht auslöst, solange es nicht Aktiv ist.
Es geht zwar mit einem Umweg, über einen Timer der aktiviert wird wenn das Fenster Inaktiv wird aber... naja es gefällt mir nicht weil das ganze auf einen nicht schnellen Rechner immer flackert.

ach ja beim zeihen des Fensters wird das untere Fenster unlesbar

[chaosben]

Hallo clock50. Herzlich willkommen in der Delphi-Praxis! :hi:

Zitat:

Zitat von clock50

Also, ich habe ein Problem!

Das ist nicht schön. :(

Zitat:

Zitat von clock50

1. ich habe eine MDI-Anwendung

Das klingt schon besser :)

Zitat:

Zitat von clock50

2. ein Formular verändere ich mit StringGrid1DrawCell

Was meinst du damit? Änderst du Daten, die das Formular anzeigt? Oder geht es dir nur um das StringGrid?
Ich vermute (wenn ich deine Frage richtig lese) das du jederzeit (auch bei einem inaktiven Fenster) die aktuellen Daten sehen willst. Richtig? In der Regel ist es ja so, das die Daten "selbst bestimmen" wann das Formular (oder besser: die Daten darauf) neu gezeichnet werden müssen, nämlich dann, wenn sich die Daten ändern.

Zitat:

Zitat von clock50

ach ja beim zeihen des Fensters wird das untere Fenster unlesbar

Das versteh ich nicht ganz. Kannst du davon mal einen Screenshot machen?

[clock50]

:? Das erste bild zeigt das Formular wenn ich das andere einmal drüber gezogen habe. :(

[chaosben]

sorry, aber ich kann da leider nicht viel erkennen. Kannst du es ein wenig genauer zeigen?

[clock50]

sorry da ist noch ein Bildauschnitt :stupid:

[clock50]

:( schade, daß mir keiner helfen kann. Um es noch einmal zu versuchen! Ich suche nach einem Event wenn ein Fenster verschoben wird. :( :coder2:

[chaosben]

Na das ist doch mal ne Frage ... :)
Probier mal "OnResize" (weiß aber nicht ob es funzt)

[Ultimator]

Schreib dir doch nen MessageHaldler für WM_MOVING ;)

[omata]

Moin,

und nun konkret...

Delphi-Quellcode:

  :
  private
    { Private-Deklarationen }
    procedure MyFormPosChangeEvent(var Message: TMessage); message WM_WINDOWPOSCHANGED;
  :
  :
procedure TForm.MyFormPosChangeEvent(var Message: TMessage);
begin
  // Event würde beim Ändern der Fensterposition aufgerufen.
end;

MfG
Thorsten

[clock50]

Danke, daß war das was ich gesucht habe :-D :hello:

[clock50]

Leider kann ich noch nicht ganz froh über diese Lösung sein. Es ist so, das Event OnResize (FormResize) wird übergangen und die Werte für Form.Height und Form.Width bleiben unverändert beim ändern der Formulargröße.

[omata]

Moin,

dann bau in deine Ereignisroutine noch ein inherited ein...

Delphi-Quellcode:

procedure TForm.MyFormPosChangeEvent(var Message: TMessage);
begin
  inherited; // Ruft Resize-Event auf
  // Event würde beim Ändern der Fensterposition aufgerufen.
end;

MfG
Thorsten