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.