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.



bis denn,

Richard

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