Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

Генерация контекстного меню   Найти похожие ветки 

 
-=GaLaN=- ©   (2003-10-20 17:23) [0]

Расскажите, а лучше киньте в меня ссылкой, где объясняется, как динамически создавать контекстное меню у какого-нибудь компонента, а потом у него (меню) обрабатывать события?


 
Rouse_ ©   (2003-10-20 17:43) [1]

Вот по быстрому накидал

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MyItemClick(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
MyMenu: TPopupMenu;
TmpItem: TMenuItem;
begin
MyMenu := TPopupMenu.Create(Self);
with MyMenu do
begin
TmpItem := TMenuItem.Create(MyMenu);
TmpItem.Caption := "Close Form";
TmpItem.OnClick := MyItemClick;
Items.Add(TmpItem);
Parent := Form1;
end;
PopupMenu := MyMenu;
end;

procedure TForm1.MyItemClick(Sender: TObject);
begin
Close;
end;

end.


Желаю успехов


 
-=GaLaN=- ©   (2003-10-20 19:09) [2]

Отлично, я создал таким образом меню из 10 пунктов. Сработало событие MyItemClick. Но оно срабатывает на всех пунктах! Как в самом событии определить, а на каком же пункте меню я все-таки щелкнул?


 
mOOx_ ©   (2003-10-20 19:23) [3]

Попробуй сделать так:
procedure TForm1.MyItemClick(Sender: TObject);
begin
if((Sender as TMenuItem).Caption="Item1")then //или текст (не помню)
Close;
end;


 
Rouse_ ©   (2003-10-21 08:57) [4]

Создавай для каждого пункта меню свой MyItemClick если с этим проблема. А если для всех будешь делать один обработчик, тогда по совету mOOx_.

Желаю успехов



Страницы: 1 вся ветка

Текущий архив: 2003.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-98657
ИМГусак
2003-10-21 12:38
2003.10.30
Продолжение к теме о simple mapi


14-98858
Adder
2003-10-10 23:47
2003.10.30
Желтые штаны - 2 раза КУ!


14-98790
kaif
2003-10-13 01:32
2003.10.30
О справедливости и здравом смысле


14-98874
Johnny Smith
2003-10-10 14:25
2003.10.30
Есть идея - универсальный спамер!


4-98941
NavigatorV
2003-08-27 00:51
2003.10.30
панель управления