Ich habs! Und so Funzt es:
Laden der Favoriten:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
NewItem : TMenuItem;
begin
StringList := TStringList.Create;
StringList.LoadFromFile('./Favoriten/fav.ini');
for i:= 0 to StringList.Count - 1 do
begin
newItem:=TMenuItem.Create(favoriten1); // favoriten1 ist mein menupunkt Favoriten
newItem.Caption := StringList.Strings[i];
newItem.Tag := i;
newItem.onClick := clickme; //ClickMe soll der Link des jeweiligen Favoritseintrages sein
favoriten1.Add(newItem);
end;
end;
Hinzufügen einer Adresse zu den Favoriten:
Delphi-Quellcode:
procedure TForm1.Hinzufgen1Click(Sender: TObject); // Hinzufgen1 ist mein menupunkt im Menu Favoriten
var
NewItem : TMenuItem;
begin
NewItem := TMenuItem.Create(mm1); //Zuweisung des Parents und erstellen des MenuItems
NewItem.Caption := edtadresse.Text; //Name des MenuItems
NewItem.Tag := 0; //Glaube hier wird die Position des MenuItems zugewiesen
newItem.onClick := ClickMe; //damit wird die Prozedur ClickMe ausgeführt, wenn auf das Item geklickt wird
favoriten1.Add(newItem); //Hinzufügen zum Menupunkt "favoriten"
StringList.Add(edtadresse.Text);
StringList.SaveToFile('./Favoriten/Fav.ini');
end;
Was noch fehlt, ist die Verlinkung der Favoriten mit z.B. Procedure Clickme
Meine Idee:
Delphi-Quellcode:
Procedure TForm1.ClickMe(Sender: TObject);
begin
WebBrowser1.Navigate(newitem.caption);
end;
Oder so änlich. Bei mir spuckt er nen Fehler raus: Zugriffsverletzung blablabla...
Weiss jemand wie das Verlinken der Menupunkte geht?