Von Komponente auf Application zugreifen

[Jelly]

Zitat von scrat1979:

Meinst Du in etwa folgendes?

Delphi-Quellcode:

constructor xyz ( Anwendung : TApplication )
begin
   apppath := extractfilepath(Anwendung.exename);
end.

Hallo SCRaT,

wohl eher nicht...

Komponenten unter Delphi müssen als Vorfahre mindestens TComponent oder eine davon abgeleitete Klasse haben, und bereits TComponent besitzt bereits einen Constructor, der wie folgt aussieht, und den Du für deine Zwecke anpassen musst. Die Parameter im constructor darfst du dabei nicht ändern:
constructor Create(AOwner: TComponent); Dort könntest Du z.B. den Applikationspfad in einer privaten Variable speichern:

Delphi-Quellcode:

constructor TDeineKompoKlasse.Create(AOwner: TComponent);
begin
     inherited ;
     FPath := ExtractFilePath(Application.exename) ;
end ;