PopupMenü zur Laufzeit

**Blackheart**

Hallo Leute
Wie erstelle Ich zur Laufzeit ein PopUpMenu für RichEdit ?
Hab schon die Suche bemüht und schon einiges probiert aber es
klappt nicht so recht.
Vieleicht hatt das ja schon wer von Euch getan und kann Mir mal
ein paar Tips dazu geben.

markieren

Delphi-Quellcode:

			RE:=TPopUpMenu.Create(RichEdit1);

  RE.Name:='Test';

  RE.Items.Caption:='Test';

**Luckie**

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TForm1 = class(TForm)

    RichEdit1: TRichEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

    popRTF: TPopupMenu;

    procedure OnMenuItemClick(Sender: TObject);

  public

    { Public declarations }

  end;

var

  Form1             : TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnMenuItemClick(Sender: TObject);

begin

  case TMenuItem(Sender).Tag of

    0: ShowMessage(TMenuItem(Sender).Caption);

    1: ShowMessage(TMenuItem(Sender).Caption);

    2: ShowMessage(TMenuItem(Sender).Caption);

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  mi                : TMenuItem;

begin

  popRTF := TPopupMenu.Create(Form1);

  mi := TMenuItem.Create(Form1);

  mi.Caption := 'Item0';

  mi.Tag := 0;

  mi.OnClick := OnMenuItemClick;

  popRtf.Items.Add(mi);

  mi := TMenuItem.Create(Form1);

  mi.Caption := 'Item1';

  mi.Tag := 1;

  mi.OnClick := OnMenuItemClick;

  popRtf.Items.Add(mi);

  mi := TMenuItem.Create(Form1);

  mi.Caption := 'Item2';

  mi.Tag := 2;

  mi.OnClick := OnMenuItemClick;

  popRtf.Items.Add(mi);

  RichEdit1.PopupMenu := popRTF;

end;

Sollte selbst erklärend sein.

**Blackheart**

Danke Luckie, jetzt wo Ich es seh TMenuItem aber manchmal hatt man ein Brett vorm Kopf.
Wollte mal versuchen Mir eine Unit zu schreiben für ein Standard PopUp
für RichEdit, mal schauen.
Nochmals vielen Dank.

**bitsetter**

Hallo,

bei Luckies Code kannst du dir die Zuweisung von TMenuItem.Tag sogar noch sparen folgendes reicht aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.OnMenuItemClick(Sender: TObject);

begin

  if (Sender is TMenuItem) then

    ShowMessage((Sender as TMenuItem).Caption);

 (*case TMenuItem(Sender).Tag of

    0: ShowMessage(TMenuItem(Sender).Caption);

    1: ShowMessage(TMenuItem(Sender).Caption);

    2: ShowMessage(TMenuItem(Sender).Caption);

  end;*)

end;

**Luckie**

Aber nicht, wenn er für jeden Eintrag im Menü etwas anderes ausführen will und das wird wohl der Fall sein.

PopupMenü zur Laufzeit

PopupMenü zur Laufzeit

Re: PopupMenü zur Laufzeit

Re: PopupMenü zur Laufzeit

Re: PopupMenü zur Laufzeit

Re: PopupMenü zur Laufzeit

Forumregeln

Blackheart Registriert seit: 4. Mai 2005 846 Beiträge Delphi 7 Enterprise	#3 Re: PopupMenü zur Laufzeit 18. Mär 2007, 22:26 Danke Luckie, jetzt wo Ich es seh TMenuItem aber manchmal hatt man ein Brett vorm Kopf. Wollte mal versuchen Mir eine Unit zu schreiben für ein Standard PopUp für RichEdit, mal schauen. Nochmals vielen Dank. Blackheart
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#5 Re: PopupMenü zur Laufzeit 18. Mär 2007, 23:48 Aber nicht, wenn er für jeden Eintrag im Menü etwas anderes ausführen will und das wird wohl der Fall sein. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat