versuch grad einen History Funktion in mein Programm zu integrieren fü 10 Einträge
das Hinzufügen in ein MainMenu klappt
Delphi-Quellcode:
var
x,y,HC : Integer;
s,b : String;
vName,Item : TMenuItem;
.........
IniFile.WriteInteger('History','Count',HC+1);
IniFile.WriteString('History',InttoStr(HC),'@'+NodeForDB+'@'+s+'@');
frmMain.History1.Clear;
for HC := 0 to 10 do
begin
vName := TMenuItem.Create(Menu);
b := IniFile.ReadString('History',InttoStr(HC),b);
vName.Caption:=GetToken(b, '@', 3); // Entry
nun brauch ich für das OnClick auf die selben
versuche das grad so
// vName.OnClick := (frmMain.TreeView1.Selected := frmSearch.TreeItemSearch(frmMain.TreeView1,vname.Caption));
+
das führt aber zu
Zitat:
[DCC Fehler] DBtools.pas(124): E2010 Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'