Eine Procedure in Form1 aus Form2 heraus ausführen

[DelphiFreund]

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var
  i: integer;
begin

end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Starten: TObject;
begin
  Form1.FormActivate(Starten);
end;

Gruß DelphiFreund

[Phoenix]

Heissa.. ein nicht instanziertes Objekt übergeben? Ist nicht gut... führt in diesem Fall jetzt zwar nicht zu einer AccVio, da nur die adresse des reservierten aber ungenutzten Speichers übergeben wird, aber sobald Du versuchst drauf zuzugreifen knallt das ganz gewaltig.

[DelphiFreund]

@Phoenix: Wie würdest du das denn machen? Íst doch praktisch, du kannst dann auch:

Delphi-Quellcode:

if Sender = Starten then begin
  ...;
end;

machen.

Gruß DelphiFreund

[DelphiFreund]

Weglassen, geht ja leider nicht.

Edit1: Tut mir leid, Beitrag von SirThornberry nicht gelesen.

[Andreas L.]

Zitat:

Zitat von Alexander Roth

Delphi-Quellcode:

procedure TForm1.TabSheet2Exit(Sender: TObject);

Vielleicht hilft dir das...

Delphi-Quellcode:

Form1.TabSheet2.OnExit(nil);

...ich weiß nur nicht was du damit erreichen willst?!?!?

Greetz

[DelphiFreund]

@onlinehome: Hat schon SirThornberry gesagt. Aber du hast recht, so wärs besser:

Delphi-Quellcode:

procedure TForm1.TabSheet1.Exit(Sender: TObject);
var
  k: Integer;
begin
  MacheDiesUndDas(2, k);
end;

procedure TForm2.MacheDiesUndDas2;
var
  k: Integer;
begin
  MacheDiesUndDas(1, k);
end;

procedure MacheDiesUndDas(i: Integer; var K: Integer);
begin
  K:= i + 5;
end;

[Alexander Roth]

Ja hilft mir ganz toll. Klappt auch alles. Aber was eigentlich ist nil???

[SirThornberry]

nil ist nichts anderes als 0 wird aber bei pointern verwendet. Zeigt also nirgends hinn bzw eben an Position 0

[Alexander Roth]

Danke für eure hilfreichen und zahlreichen Beiträge.
Danke!!!! :party: :party: :party:

[DelphiFreund]

ich würde sogar sagen weniger als 0, 0 ist immerhin noch eine Zahl. nil ist nichts.

Gruß DelphiFreund