Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by michaelg,
22. Jun 2008
Hi Luckie,
mein Beispiel war ne Krücke, na gut. Aber mit paramstr den aufrufenden Pfad festzustellen finde ich in Ordnung. Dann also so:
procedure InitPfade;
var
ExePfad:String;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by michaelg,
22. Jun 2008
Du könntest Dir Deinen Exe-Pfad hinterher wieder setzen, egal wo Du mit dem Öffnendialog warst.
procedure TForm1.btnOpenClick(Sender: TObject);
begin
OpenDlg.InitialDir:='c:\temp';
if OpenDlg.Execute then begin
//MachIrgendwas;
end;
chDir(ExtractFilePath(paramstr(0)));