Prozedur aus einer anderen Prozedur aufrufen

[Honigdachs]

Zitat von leddl:

Zitat von Honigdachs:

Also im Wesentlichen zecke's Lösung, jedoch mit den "Parametern ()". Scheint wohl bei Delphi 5 nötig zu sein.

Das hat dir SirThornberry doch bereits in Beitrag #4 vorgeschlagen

Schon, aber zecke's Lösung war dann doch anwenderfreundlicher bzw. für einen Anfänger verständlicher.

MfG

Honigdachs

PS: Kann man eigentlich aus einer anderen Prozedur das FormCreate nochmals aufrufen?

[zecke]

Unwahrscheinlich, aber wenn, dann ist es keine gute Lösung (denke ich).

Packe das was du im OnCreate der Form machen willst in eine eigene Funktion, diese kannst du dann im oncreate der form aufrufen und auch sonst im code verwenden.


edit: sowas geht form1.OnCreate(form1); finde ich aber wie gesagt, verwirrend und nicht schön. wenns also geht, einfach in eine funktion umlagern.

[Honigdachs]

Die FormCreate nochmals aufzurufen war halt meine Idee, um die Felder eines Datenbank-Formulars zurückzusetzen (inkl. Image). Mir fiel nichts anderes ein, außer eben das Programm praktisch per FormCreate einfach nochmal zu resetten.

[zecke]

Kannst Du schon so machen, denke ich

[Honigdachs]

Oder gibt es eine bessere Möglichkeit, bereits geladene Bilder wieder zu entfernen und in einen leeren Zustand zu versetzen?

MfG,

Honigdachs

[Mackhack]

Was meinst du denn mit einem Leeren Zunstand?

Ne Flasche Bier kann einen Leeren Zustand haben, aber ein Bild?

[zecke]

Ich vermute er meint, wie er ein geladenes Bild wieder aus dem Image herausbekommt. Ich mache das so: DeinImage.Picture:=nil;

[Honigdachs]

Zitat von zecke:

Ich vermute er meint, wie er ein geladenes Bild wieder aus dem Image herausbekommt. Ich mache das so: DeinImage.Picture:=nil;

Ja, genau das hab ich gemeint Danke!

Nochmals vielen Dank an alle, die geholfen haben!

[Erwin Pälzig]

Zitat von Honigdachs:

Erstmal vielen Dank für die vielen Beiträge!
Ich habe es folgendermaßen gelöst:

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure Tform1.button1click(sender: tobject);
begin
  test();
end;

Also im Wesentlichen zecke's Lösung, jedoch mit den "Parametern ()". Scheint wohl bei Delphi 5 nötig zu sein.

MfG,

Honigdachs

Besten Dank für den Beitrag, hat mir auch geholfen!

Somit der Hinweis von mir: diese Definition muss auch so in Delphi XE7 umgesetzt werden.
Weiter so!

[DeddyH]

Hab ich was falsch verstanden, wenn wir schon Threadleichen schänden? Ich habe das gerade unter Delphi 5 ausprobiert:

Delphi-Quellcode:

procedure test;
begin
  ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test();
end;

funktioniert,

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test();
end;

funktioniert auch,

Delphi-Quellcode:

procedure test();
begin
  ShowMessage('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test;
end;

ebenso. Wo ist das Problem?