ganz am Ende der [autoexec] Bereich, dort geschieht die meiste Arbeit und da darf ich leider kein "=" nutzen^^
Aber wie gesagt das ist eine Sache die noch etwas Zeit hat, momentan hänge ich eh daran die onClick Geschichte zum laufen zu kriegen
Ich habe zwar
Delphi-Quellcode:
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);
OnClick := @GPSDirCheckBoxOnClick;
end;
end;
procedure GPSDirCheckBoxOnClick(Sender: TObject);
begin
//GPS-Verzeichnisauswahlfenster
UserDirPageCAE.Add('GPS-Ordner Verzeichnis');
//GPS-Standardpfad in der Verzeichnisauswahl
UserDirPageCAE.Values[1] := ExpandConstant(
'C:\CAE2000\');
end;
end;
Das nun geschrieben, jedoch motzt er immer rum "unknown Identifier", aber ich bin irgendwie gedanklich dabei das ja die Zuweisung zur procedur über den Sender geschieht und damit eigentlich alles abgehackt sein sollte.....