Huch so viele schon
Delphi-Quellcode:
procedure TFruit.SetForm(const Value : TForm1);
var
f1 : TForm1;
begin
t := nil; // Nicht mal das geht
f1 := Value; // Das würde gehen
t := Value; // und das ist der Grund für den Eintrag
end;
Also wenn // t := nil;
dann kann ich das Object mit Value an f1 übergeben
nur t in private deklariert das geht gar nicht dann gibt es eine EAccessViolation Schutzverletzung.
Ob das elegant ist, ist erst mal egal.
Es geht ja auch darum mal was anderes zu probieren und zu lernen.
Ich habe die Komponente comport411f
eine tolle Freeware Komponente wo das funktioniert und ich verstehe nicht warum
das hier nicht funktioniert.