Hei! Kanskje dette er til hjelp?:
http://www.swissdelphicenter.ch/torry/showcode.php?id=1285
Mvh
DiZpel
Det var da godt ualmindelig meget kode til en relativ simpel opgave
Hvis det er til en MRU (Most Recently Used) liste, så er en simpel tekst fil rigeligt.
Fil:
c:\\programmer\\text.txt
c:\\Dokumenter\\skodword.txt
etc...
Program stump:
procedure TForm1.LoadMRU;
var
liste : TStringList;
idx : integer;
itm : TMenuItem;
begin
liste := TStringList.Create;
liste.LoadFromFile('sti til din menu fil.txt');
for idx := 0 to liste.count - 1 do
begin
itm := TMenuItem.Create(self);
Itm.Caption := liste[idx];
Itm.OnClick := MRUClicked; // TNotifyEvent defineret andetsteds
Menu.Items.Add(Itm); // Menu er din MRU menu.
end;
liste.free;
end;
procedure TForm1.MRUClicked(Sender:TObject);
begin
if Sender is TMenuItem then
begin
// Load filen fra listen, OpenMRUFile skal du selv finde ;)
OpenMRUFile((Sender as TMenuItem).Caption);
end;
end;
Koden er skrevet direkte her, og er totalt utestet. Der kan være fejl og mangler som medfører kompiler fejl, crash af Windows, blindhed og overfølsomhed for aftensmad og computer spil.
God fornøjelse.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk