Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Okt 2009
man kann auch ganz böse sein :twisted:
procedure TMyClass.Setup;
begin
with TSetupForm.Create(self) do
try
MyObject := self;
ShowModal;
finally
Free;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
31. Okt 2009
Nimm statt Pointer dann eher TObject ... ist verständlicher und kommt auf's Selbe raus.
Selbst wenn man keinen Vorfahren angibt, nimmt Delphi automatisch TObjekt als Vorfahre ... da dieses Vorfahre aller Objekte/Klassen ist, kann man ihm auch alles zuweisen.
und Objekte sind halt Records mit Pointer drauf :angel: