wo finde ich --->TForm1.Form1Destroy<---

[MisterX]

Habe Quelltext und dort steht

Delphi-Quellcode:

procedure TForm1.Form1Destroy(Sender : TObject);
begin
  S.Free;
end;

und ich will wissen wo ich --->Tform1.Form1Destroy<--- finde

[edit=sakura] [delphi]-Tag korrigiert Mfg, sakura[/edit]

[Mattin]

Hai MisterX,

1.) Form1 anklicken
2.) in den Objektinspektor wechseln
3.) dann Register: Ereignisse anklicken
4.) Döppen (Augen) aufmachen, brille putzen etc.. und dann steht da 'onDestroy'
5.) Fertig.

Das wars auch schon...

[rwachtel]

Zitat von MisterX:

Habe Quelltext und dort steht procedure TForm1.Form1Destroy(Sender : TObject); [...]und ich will wissen wo ich --->Tform1.Form1Destroy<--- finde

In Deinem Quelltext...

Versteht jemand die Frage?

[Interceptor]

Hä ?!

Zum einen würde ich erstmal die Delphi Code-Tags richtig setzen, und zum anderen hat man dich jetzt schon mehrmals drauf hingewiesen deine Fragen in einem klar verständlichen Deutsch zu formulieren. Is denn das so schwer?

Was meinst du genau damit, wo du TForm1.Form1Destroy findest / finden kannst ?

[MisterX]

gut danke das wollte ich wissen

ich habe den qtext von euch und da stand das und ich wuste nicht wo das ist

[MisterX]

Delphi-Quellcode:

var
  link_num : integer;
  s : TStringList;

procedure TForm1.Timer1Timer(Sender : TObject);
begin
  ShellExecute(Handle, PChar('open'), PChar(S.Items[link_num]), PChar(''), SW_SHOWNORMAL));
  Inc(link_num);
  if link_num = S.Count then link_num := 0;
end;

procedure TForm1.Form1Create(Sender : TObject);
begin
  link_num := 0;
  S := TStringList.Create; 
  S.LoadFromFile('wasweißichwo.txt');
end;

procedure TForm1.Form1Destroy(Sender : TObject);
begin
  S.Free;
end;

[MisterX]

Mattin hat ja die frage verschtanden und auch beantwortet