,, hvordan man laver et simpelt "de seneste sager" menu /liste i din ansøgning.,, for et stykke tid siden, jeg var nødt til at tilføje en "de seneste sager menu" i et projekt, jeg arbejder på.så jeg skrev et enkelt element, der bør være en fleksibel.b) kan genbruges i andre projekter.thistory blev født:),,, du kan downloade thistory her.gør hvad du vil med det, men jeg vil apprechiate, hvis du kunne lade mig vide hvis du bruger den i dit program:),,, at målet med denne artikel er at foretage en simpel "åbne" menu (se billedet nedenfor).First some code then I'll try to explain what it does.,,,,,,//Update the "Reopen" list..,,,procedure, TfrmMain.History1Change(Sender: TObject);,,var, i: integer;,,begin,,, ,with, Reopen1 ,do,, begin,,, Clear;,, ,for, i:= 0 ,to, History1.Count-1 ,do,,, ,begin,,, Add(TMenuItem.Create(self));,, ,with, Items[Count-1] ,do,, begin,,, Caption := '&' + IntToStr(i) +' '+ History1.Items[i];,, Tag := i;,, OnClick := GenericReopenClick;,, ,end;,, end;,,, Enabled := Count > 0;,, ,//Add linebreak,,, Add(TMenuItem.Create(self));,, Items[Count-1].Caption := '-';,, ,//Add 'Clear History',,, Add( TMenuItem.Create(self) );, , , ,with, Items[Count-1] ,do,, begin,,, Caption := 'Clear History';,, Tag := -1;,, OnClick := GenericReopenClick;,, ,end;,, end;,, end;,,,,//Reopen item clicked...,,,procedure, TfrmMain.GenericReopenClick(Sender: TObject);,,begin,, if, TMenuitem(Sender).Tag >= 0 ,then,,, OpenFile(History1.Items[TMenuitem(Sender).Tag]),, ,else,,, History1.Clear;,,end;,,,,//...,,,,procedure, TfrmMain.OpenFile(FileName: string);,,begin,,, ,//Your code here...,,, History1.AddItem(FileName);,,end;,,,,, Note that this is not the code for the component, you have to download and install it for this to work. history1change er onchange begivenhed for min thistory objekt, history1.hver gang en tilføjes til denne procedure bliver kaldt historie komponent, så vi ved, at den er blevet ændret.så vi blot genskabe ubåden menu "reopen1" med de løbende poster + en "historien" punkt.,,, genericreopenclick, den procedure, vi på alle menuitems onclick er, hvor du sætter din kode til at håndtere tilfælde, hvor en klikkede på et punkt i vores menu.jeg troede, det var lettest at redde indeks for hver historie på den tilsvarende menuitems, ejendom, som du kan se ovenfor.indekset for en historie, punkt aldrig kan være - 1, så jeg brugte det til at klare den historie.,,, thistory kan kun belastnings - /redde den liste fra /til ini filer.men at støtte til andre formater såsom registret eller sædvane format, burde ikke være et problem.,,, hvis du finder nogle insekter eller foretage forbedringer, så lad mig det vide, så jeg kan ajourføre det.,,