On "AfterShow" ?

[Pseudemys Nelsoni]

hi,

ich möchte eine prozedur ausführen unmittelbar nachdem mein Form sichtbar(!) ist

aber weder im OnCreate/OnShow noch OnActivate wird das Fenster angezeigt bevor meine prozedur beendet ist...

wie kann ich das nun hinbekommen? So eine art "OnAfterShow" ?

[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

[Pseudemys Nelsoni]

danke, funzt einwandfrei :)

[richard_boderich]

@all

dabei wird die routine doch aber jedesmal aufgerufen, wenn das form neu gezeichnet wird oder?

Gruß richard

[sniper_w]

Zitat:

dabei wird die routine doch aber jedesmal aufgerufen, wenn das form neu gezeichnet wird oder?

Richtig.

[richard_boderich]

@ sniper_w

erstma thx für deine antwort. :)
muss ich denn sonst noch irgendwas beachten, wenn ich diese Routine einsetze. die automatische
neuzeichnung bei minimieren oder verkleinern des forms funktioniert also trozdem ja ?
außerdem will ichs nur einmal ausführen. wuerd das so machen?

Delphi-Quellcode:

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

[alcaeus]

Hallo Richard,

erstens hab ich mal dein Posting von oben geloescht ;)

Und ja, so sollte es funktionieren. Korrekter waere aber, das mehrfache aufrufen im OnAfterShow-Handler selbst abzufangen. Das OnAfterShow-Ereignis soll ja nach dem Show ausgeloest werden, und das kann bekanntlich mehr als einmal ausgefuehrt werden. Aber wie gesagt, so gehts auch ;)

Greetz
alcaeus

[richard_boderich]

@alcaeus,


ok, vielen dank du ;) hast was gut bei mir.

:cheers:

bis denn,

Richard

PS.: Wann kann man mit deinem Tut über die DPCollection rechnen ?