Okay das die procedure mit in das Formular muss hatte ich auch nur durch ein bissl rum probieren ist sie an der falschen Stelen hängen geblieben *gg*
Das "@" hatte ich nur eingefügt weil es ohne auch nicht funktionierte und ich dies bei ein paar Beispielen gesehen hatte, mein Code sieht momentan wie folgt aus bzw. der Ausschnitt
Delphi-Quellcode:
procedure InitializeWizard;
begin
UserDirPageCAE := CreateInputDirPage(wpSelectDir,
ExpandConstant('{cm:CAEVerzeichnis}'),
ExpandConstant('{cm:SpeicherortPRTDEF}'),
ExpandConstant('{cm:SpeicherzielPRTDEF}'),
false,
'Neuer Ordner');
//CAE-Verzeichnisauswahlfenster
UserDirPageCAE.Add('CAE2000.EXE Verzeichnis');
//CAE-Standardpfad in der Verzeichnisauswahl
UserDirPageCAE.Values[0] := ExpandConstant(
'C:\CAE2000\');
GPSDirCheckBox := TCheckBox.Create(UserDirPageCAE);
with GPSDirCheckBox do //Parameter für die GPS-CheckBox
begin
GPSDirCheckBox.Parent := UserDirPageCAE.Surface;
Caption := ExpandConstant('{cm:GPSVerzeichnis}');
Left := ScaleX(0);
Top := ScaleY(120);
Width := ScaleX(400);
Height := ScaleY(40);
Checked := GPSDirCheckBoxChecked;
OnClick := GPSDirCheckBoxOnClick;
end;
procedure GPSDirCheckBoxOnClick(Sender: TObject);
begin
if GPSDirCheckBox.Checked then
begin
//GPS-Verzeichnisauswahlfenster
UserDirPageCAE.Add('GPS-Ordner Verzeichnis');
//GPS-Standardpfad in der Verzeichnisauswahl
UserDirPageCAE.Values[1] := ExpandConstant(
'C:\CAE2000\');
end;
end;
end;
Jedoch kriegt er es noch immer nicht hin und gibt mir noch immer den Unknown identifier für "GPSDirCheckBoxOnClick" raus.
(Falls etwas nicht ersichtlich sein sollte hab ich im Dateianhang mal das gesamte Projekt, aber eigentlich sollte dies ja net notwendig sein hoffe ich^^)