Zuletzt geöffnete Dateien (im Datei-Menü) anzeigen

[Luckie]

Zitat von Stanlay Hanks:

Also so wie ich das verstehe, weißt du ihm als onclick ereignis ein menü zu. Und das kann ja nicht gehen.

Nein tue ich nicht. ich weiße dem OnCloick-Ereignis ein Event-Hanmdler zu das ist in Ordnung.

@dopeline: Hast du auch irgendwo das:

Delphi-Quellcode:

procedure TForm1.MyMenuItemClick(Sender: TObject); 
var 
  ini : TiniFile; 
  s   : String; 
begin 
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\mru.ini'); 
  try 
    s := ini.ReadString('MRU', IntToStr((Sender as TMenuItem).Tag), '');  // Schlüsselwert an Hand des Tags indentifizieren 
    ShowMessage(s);  // Und ausgeben 
  finally 
    ini.Free; 
  end; 
end;

geschrieben?

[dopeline]

oh mann! ich bin ja vielleicht bedeppert...
ich habe MyMenuItem statt MyMenuItemClick geschrieben...

ok, also wenn ich das programm öffne, eine datei einlade, das programm wieder schließe und wieder öffne, steht unter "Beenden" die datei. das ist cool. allerdings, wenn ich jetzt 30 dateien (nacheinander) geöffnet habe, steht erst beim nächsten neustarten des programms die ganze liste von 30 dateien...
wie sage ich ihm, dass er wenn ich eine datei öffne, die dadurch eben geschlossene datei im menu angezeigt wird?

(außerdem muss da noch irgentwie eine begrenzung rein, sonst sehe ich bald mein programm nicht mehr, vor lauter einträgen *g*)

dopeline

[Luckie]

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.

[dopeline]

Wie kann ich denn diese ini-datei "leeren"?
hab es jetzt so eingerichtet, dass wenn man auf "History lehren" klickt, die ini-datei gelöscht wird. aber aus irgenteinem grund wird, wenn man dann das programm startet, eine datei lädt und das programm dann neustartet, die eben geöffnete datei nicht in die ini übertragen...
liegt das vielleicht daran, dass ich die ini-datei vorher gelöscht habe und er erst bei der 2. datei diese wieder übernimmt?

[Stanlay Hanks]

@Luckie: Rückzug....so weit hab ich mal wieder nicht gedacht... sorry.

Man liest sich, Stanlay

[Luckie]

hast du mal in die Ini-Datei gekuckt? Wohl nicht, sonst hättest du was anderes gefragt.

Der Hund liegt hier begraben:

Delphi-Quellcode:

          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
              continue;
            NewItem.Tag := i;
            NewItem.OnClick := MyMenuItemClick;
            mnuFile.Insert(mnuFile.Count, NewItem);
          end;

Wenn ein Eintrag drin ist, dann läuft die Schleife von? Genau 0 bis ein Eintrag minus eins, also genau wie viel mal? Gar kein mal. Nimm das minus eins bei der for-Schleife raus.

Mann, das Ding habe ich in 20 Minuten zusammengekloppt. Es sollte ja auch nur das Prinzip verdeutlichen. Ich habe nie den Anspruch auf perfekten Code erhoben.

[Daniel B]

Hallo,

ich habe es nach Delphi-Language verschoben.

Grüsse, Daniel

[dopeline]

@lucky
Vielen Dank für deine Hilfe! (wüsste nicht, was ich ohne dich gemacht hätte... )
kannst du mir noch sagen, wie ich verhindere, dass in dem menü einträge soppelt auftauchen? (also, wenn ich 2x die gleiche datei geöffnet habe, steht dann dort auch 2x dieselbe)

Grüße, dopeline