Hallo!
Dies probiere ich grade auch selber aus!
1. Erstelle in deinem Menü, da wo du die Einträge hinhaben willst, 4 neue Einträge. Bei
name schreibst du am besten
mnLastFile1, ...2, ...3 und ...4 hin!
2. Stelle diese 4 Menüeinträge bei
visible alle auf
false!
3. Jetzt brauchst du ein Ort, wo du die letzen Einträge speichern kannst! Du kannst die Registry (wovon ich keine Ahnung habe) oder eine simple ini-Datei.
4. Bei einer Ini-Datei musst du erstmal oben deines Programm-Code bei
units die Unit
IniFiles hinzufügen.
5. Für die 4 letzen Datein habe ich auch vier neue Global-Variablen hinzugefügt:
Delphi-Quelltext
1: 2: 3: 4:
| File1: string = ''; File2: string = ''; File3: string = ''; File4: string = ''; |
6. Bei einer Ini-Datei, die muss beim Beenden erstmal erstellt werden. Schreibe dazu bei
OnClose erstmal dieses hier hin:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| var Ini: TIniFile; begin Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini'); with Ini do begin
WriteString('History','File1',File1); WriteString('History','File2',File2); WriteString('History','File3',File3); WriteString('History','File4',File4);
Free; end; end; |
7. Starte das Programm und beende es wieder, damit deine Ini-Datei erstellt wird.
8. Nun muss dein Programm wieder die Datei laden und die Werte auslesen. Diese Werte werden dann in die Variablen gespeichert. Hier der Code, den du nun bei
OnShow reinschreiben kannst:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35:
| var Ini: TIniFile; begin Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
try with Ini do begin
File1 := ReadString('History','File1',File1); File2 := ReadString('History','File2',File2); File3 := ReadString('History','File3',File3); File4 := ReadString('History','File4',File4);
end finally Ini.Free; end;
if File1 <> '' then mnLastFile1.Visible := True; if File2 <> '' then mnLastFile2.Visible := True; if File3 <> '' then mnLastFile3.Visible := True; if File4 <> '' then mnLastFile4.Visible := True;
mnLastFile1.Caption := '&1: ' + ExtractFileName(File1); mnLastFile2.Caption := '&2: ' + ExtractFileName(File2); mnLastFile3.Caption := '&3: ' + ExtractFileName(File3); mnLastFile4.Caption := '&4: ' + ExtractFileName(File4); end; |
9. Nun musst du zu deinen 4 Menüeinträgen kommen: Schreibe bei den
onClick-Ereignissen jeweils rein:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| var Dateiname : string; begin Dateiname := File1; if fileexist(Dateiname) then begin end; end; |
So das wärs. Das ist jetz natürlich alles sehr simple alles aufgebaut und kann alles noch x-beliebig erweitert werden.
PS: Schritt 9 noch nicht selber ausprobiert!
Gruß,
Timon