Ereignis OnAfterShow

[DeddyH]

Ginge das nicht auch so?

Delphi-Quellcode:

unit Nix;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FFirstRun: Boolean;
    procedure WMWindowPosChanged(var Msg: TWmWindowPosChanged);
      message WM_WINDOWPOSCHANGED;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMWindowPosChanged(var Msg: TWmWindowPosChanged);
begin
  if FFirstRun then
    begin
      FFirstRun := false;
      ShowMessage(Format('%d : %d',[Msg.WindowPos^.cx,Msg.WindowPos^.cy]));
    end;
  inherited;
end;

//Nur zum Testen auf ButtonClick maximieren
procedure TForm1.Button1Click(Sender: TObject);
begin
  FFirstrun := true;
  WindowState := wsMaximized;
end;

end.

Auf die Schnelle unter Delphi 5 getippt und kurz ausprobiert.

[mquadrat]

Zitat von dfried:

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.

Stimmt. Da hatte ich wohl einen Denkfehler drin.