Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
hast du mal in die Ini-Datei gekuckt? Wohl nicht, sonst hättest du was anderes gefragt. :roll:
Der Hund liegt hier begraben:
for i := 0 to slKeyNumbers.Count-1 do
begin
NewItem := TMenuItem.Create(mnuFile);
NewItem.Caption := '&'+IntToStr(i)+' '+ExtractFilename(ini.ReadString('MRU', IntToStr(i), ''));
if NewItem.Caption = '' then
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
Das habe ich ja geschriebn, dass da noch eien Begrenzung rein muß. Also alles kann und will ich dir nicht vorkauen. Du brauchst das ja und nicht ich.
Zu deinem anderen Problem: Kuck dir mal an, wann was in meinem Code passiert.
Etwas anpassen, mußt du ihn eben schon für deine Bedürfnisse.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
Nein tue ich nicht. ich weiße dem OnCloick-Ereignis ein Event-Hanmdler zu das ist in Ordnung.
@dopeline: Hast du auch irgendwo das:
procedure TForm1.MyMenuItemClick(Sender: TObject);
var
ini : TiniFile;
s : String;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\mru.ini');
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
Hä? Das ist die Ereignis-Prozedur für den Klick auf einen Menü-Eintrag. Warte ich hänge das ganze mal an.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
mnuFile heißt mein "Datei"-Menü. Das nächste wäre mnuEdit für das "Bearbeiten"-Menü.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
Here we go:
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
mnuFile: TMenuItem;
Dateiffnen1: TMenuItem;
OpenDialog1: TOpenDialog;
procedure Dateiffnen1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
13. Mai 2003
Merk sie dir in einer Ini-Datei und beim Laden liest du sie aus und erstellst die Menüpunkte im Menü dynamisch. Beim Klick auf den Menüpunkt dient die Caption als Pfad zur Datei. Das wäre das einfachste.