Even een snel stukje code voor je geschreven:
Een Button, een leeg PopupMenu en een Listbox. Hopelijk heb je hier wat aan
Delphi Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure CustomClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s: string;
myItem: TMenuItem;
begin
// maak popup menu
for i := 0 to listbox1.Items.Count - 1 do
begin
myItem := TMenuItem.Create(PopupMenu1);
s := ListBox1.Items.Strings[i];
with myItem do
begin
Caption := s;
Name := 'myItem' + IntToStr(i);
OnClick := CustomClick;
Visible := True;
end;
PopupMenu1.Items.Add(myItem);
end;
end;
procedure TForm1.CustomClick(Sender: TObject);
var s: string;
begin
// Een van de knoppen in het menu wordt geclickt
s := (Sender as TMenuItem).Name;
Delete(s, 1, 6);
ShowMessage('You clicked item ' + s + ': ' + (Sender as TMenuItem).Caption);
end;
end.
Bookmarks