On "AfterShow" ?

[Funky-Sepp]

Du musst die Methode Paint der Form überschreiben

Delphi-Quellcode:

  TMyForm = class( TForm )
  private
    fPainted : Boolean;
  protected
  public
    procedure Paint; Override;
    procedure AfterShow; 
  published
  end;

implementation


procedure TMyForm.Paint;
begin
  inherited Paint;
  if not fPainted then begin
    fPainted := True;
    AfterShow;
  end;
end;

Das müsste funktionieren