umm danke..
Jetzt ist das nächste problem mit the OnClick procedure.
Also wenn man draufclickt brauch ich die Caption des items. Doch die wird falsch angezeigt.
Hier die procedure in der ich die items hinzufüge:
Delphi-Quellcode:
procedure TForm2.OkBtnClick(Sender: TObject);
var
NewItem: TMenuItem;
i:Integer;
begin
for i:=0 to ServerView.Count-1 do
begin
NewItem:= TMenuItem.Create(Self);
NewItem.Caption := ServerView.Items.Strings[i];
NewItem.Tag := i;
NewItem.OnClick := PopUpMenuConnecter;
Form1.PopUpMenu1.Items.Add(NewItem);
end;
Form2.Close;
end;
Und hier die OnClick procedure von allen TMenuItems:
Delphi-Quellcode:
procedure TForm2.PopUpMenuConnecter(Sender: TObject);
begin
//ShowMessage(TMenuItem(Sender).Caption);
Form1.Connect(TMenuItem(Sender).Caption);
end;
Nur ist vor die Caption irgendwie falsch, da ist immmer ein "&" zeichen davor. Wieso?
Edit: naja, ich habs jetzt einfach mit dem Name des TMenuItems gemacht (natürlich gleich declariert wie die caption) und dann ging es. Würd mich aber trotzdem interesieren warum dort ein "&" davor ist wenn ich die Caption nimm.