Caption eines Menüitems in ein SynEdit fügen

[Nils_13]

Hi,

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

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;

[_frank_]

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

Gruß Frank

[Meflin]

:gruebel:

Delphi-Quellcode:

Synedit1.Text := Synedit1.Text + Caption

[Nils_13]

Zitat:

Zitat von Meflin

:gruebel:

Delphi-Quellcode:

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 :(

[marabu]

Hallo Nils,

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

Delphi-Quellcode:

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

Grüße vom marabu

[Nils_13]

Thx, habe es jetzt hinbekommen.