erst 2.Fenster sichtbar machen, und dann aktion ausführen?

[Thorben86]

Hi, ich hab das problem, dass ich aus nem hauptfenster nen 2. Fenster aufrufen will. Das Fenster lasse ich schon beim starten erzeugen, jedoch unsichtbar und nicht enabled.

Das Fenster wird mit

Delphi-Quellcode:

f_strasse.enabled:=false;
f_credits.show;

aufgerufen. Mein Problem ist nun, das ich etwas auslösen lassen will, was erst passieren soll, wenn das fenster geladen ist. Darum hab ich das in den OnActivate Teil reingeschoben, nur weis ich nit, wie ich dem klarmache, das das jetzt aktiviert ist, da der die umstellung auf enabled anscheinend nicht als aktivierung sieht(siehe code unten).

Wenn ich jedoch auf nen button klick(leer), führt der dass aus, wie kann ich dem das anders vermitteln?

Außerdem würd ich gern wissen, wie ich den code unten so abändern könnt, dass ich den timer rauslassen kann, und der trotzdem erst die form sichtbar macht, und dann das unten beschriebene ausführt.

Delphi-Quellcode:

procedure Tf_credits.FormShow(Sender: TObject);
begin
.
.
.
{f_credits.Enabled:=true;
f_credits.Visible:=true;
wenn ich das anstatt dem timer nehme, klappt es theoretisch auch´, nur führt der die aktion erst aus(soll die farbe von nen label faden, was man auch sieht), so dass man das faden sieht, und die Leiste oben, der rest aber erst sichtbar wird, wnn er fertig ist.)

timer2.Enabled:=true;
end;


procedure Tf_credits.Timer2Timer(Sender: TObject);
begin
f_credits.Enabled:=true;
f_credits.Visible:=true;
timer2.Enabled:=false;
end;

€dit: Sry für die merkwürdige ausdrucksweise