Hi,

wie kann ich einer Liste von Menüeinträgen (TMainMenu) das OnClick Ereigniss zuweisen, die eigene Caption in ein SynEdit einzufügen ?

zusammenfalten · markieren

Delphi-Quellcode:

for i := 0 to fMemo.Lines.Count - 1 do
begin
  temp := TMenuItem.Create(MainMenu.Items[3].Items[1]);
  temp.Caption := ...;
  tempstr := temp.Caption;
  temp.OnClick := tempClick;
  MainMenu.Items[3].Items[1].Add(temp);
end;

procedure TfrmMain.tempClick(Sender: TObject);
begin
  ???
end;

(sender as TMenuItem).Caption //die Caption
einfügen ins SynEdit evtl. per SelText (hab kein Synedit )

Gruß Frank

Synedit1.Text := Synedit1.Text + Caption

Zitat von Meflin:

Synedit1.Text := Synedit1.Text + [u][i][b]Caption[/b][/i][/u]

Das Problem ist doch, dass die Caption korrekt ausgelesen werden muss.

@_frank_: Thx, probier es mal aus.

Ich bekomm es immer noch nicht hin

Hallo Nils,

wenn dein Problem die Identifizierung des richtigen MenuItem ist, dann versuche es mal so:

markieren

Delphi-Quellcode:

procedure TDemoForm.MenuItemClick(Sender: TObject);
begin
  with Sender as TMenuItem do
    SynEdit.SelText := StripHotKey(Caption);
end;

Grüße vom marabu

Thx, habe es jetzt hinbekommen.