Ereignis OnAfterShow

[Eurowig]

Hi.
Eigentlich ein simples Problem.
Ein Form bekommt zur Designzeit das Propertie WindowsState = wsMaximized zugewiesen. Ich will die Größe meiner Form nach dem es das erste mal sichtbar wurde wissen.

Aber wie kann ich Height und Width des Forms rausfinden. In OnShow bekomme ich die alten Werte (also die Größe zur Designzeit). Wenn man in die Delphi Sourcen schaut, wird auch klar warum. Das Ereignis OnShow wird vor dem Zuweisen von WindowState gesendet.

Bisher meine Lösung, im OnResize einen Zähler abfragen:

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  if ResizeCounter = 2 then // OnReszie wird beim ersten anzeigen 2-mal ausgelöst
  begin
    ... // Tu was, z.B. Controls anordnen
  end;

  Inc(ResizeCounter);
end;

Leider haben die Delphientwickler ein 'OnAfterShow' vergessen.
Gibt es da eine schönere Lösung?

thx

[taaktaak]

.. eine eigene WM_AfterShow definieren und mit PostMessage() im OnShow senden

[Eurowig]

und was soll das bringen???
Im OnShow geht doch nicht (siehe mein erster Beitrag)

[mquadrat]

Das Einzige was mir noch einfallen würde wäre ein Timer, den man im onShow startet.

[Satty67]

Schlagt mich für die seltsame VAriante, aber ich mache das immer so:

Delphi-Quellcode:

// FirstRun ist eine Bool-Variable im private des Formular

procedure TForm1.FormCreate(Sender: TObject);
begin
  FirstRun := True;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  if FirstRun then begin
    FirstRun := False;
    // Fenster Größe setzen
    WindowState := wsMaximized;
    Application.ProcessMessages;
    // einmaliges Initialisieren der Controls
    Label1.Caption := IntToStr(Width)+'x'+IntToStr(Height);
  end;
end;

[taaktaak]

Zitat:

und was soll das bringen???

... den von dir gewünschten Effekt :mrgreen:

[mquadrat]

Zitat:

Zitat von taaktaak

Zitat:

und was soll das bringen???

... den von dir gewünschten Effekt :mrgreen:

Wenn laut ihm WindowState erst nach dem onShow gesetzt wird, wird das Auslösen eines neuen Events im onShow auch nicht's nutzen ;) Das müsste er schon nach dem Setzen des WindowStates auslösen. Allerdings müsste er dafür in die Form Klasse und hätte somit keine releasesichere VCL mehr, wenn ich jetzt nicht arg aufm Schlauch steh.

[Eurowig]

@taaktaak:
Sorry, du hast vielleicht sogar recht. :gruebel:

Die Message reiht sich im Windows Messagehandler 'hinten' an. Somit hat dann das Form wenn diese Message verarbeitet wird seine endgültige Größe. Wichtig ist hier wohl nur, dass das PostMessage() ganz am Ende von OnShow stattfindet und das Form schneller gezeichnet wird als die Message dran ist.

@mquadrat:
Ein Timer ist unter Umständen genauso problematisch. Dann bleich ich lieber bei meiner 'ResizeCount' Variante.

[dfried]

Zitat:

Zitat von mquadrat

Wenn laut ihm WindowState erst nach dem onShow gesetzt wird, wird das Auslösen eines neuen Events im onShow auch nicht's ...

Hat ja auch niemand was von einem "neuen Event" geschrieben sondern vom "Senden einer Message" und damit geht das dann sehr wohl, da die MessageQueue erst abgearbeitet wird, wenn das setzen von WindowState auch schon rum ist.

[taaktaak]

Also, ich mache das in verschiedenen Projekten auf diese Weise,
bisher hat es immer funktioniert.
- probiere es mal aus!