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

Вниз

New PopupMenu   Найти похожие ветки 

 
Budy ©   (2004-03-02 12:46) [0]

Приветствую всех!
У меня есть текст:
.........
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
New1: TMenuItem;
Button1: TButton;
.........
procedure Button1Click(Sender: TObject);
.........
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
N13:TMenuItem;
.........
procedure TForm1.Button1Click(Sender: TObject);
begin
N13:=TMenuItem.Create(Form1);
N13.Caption:="sssssssss";
New1.Add(N13);
N13.Click;
end;
.........

А вот как бы для моей N13 сделать N13Click, т.е. событие нажатия на нее? Заранее спасибо!


 
Budy ©   (2004-03-02 12:53) [1]

Вообще-то не так:.........
procedure TForm1.Button1Click(Sender: TObject);
begin
N13:=TMenuItem.Create(Form1);
N13.Caption:="sssssssss";
New1.Add(N13);
N13.Free;
end;
.........


 
Budy ©   (2004-03-02 12:53) [2]

Вообще-то не так:
.........
procedure TForm1.Button1Click(Sender: TObject);
begin
N13:=TMenuItem.Create(Form1);
N13.Caption:="sssssssss";
New1.Add(N13);
N13.Free;
end;
.........


 
TUser ©   (2004-03-02 13:36) [3]

var ne:TNotifyEvent;

@ne:=@n13click;
n13.onclick:=ne;


 
Budy ©   (2004-03-04 07:00) [4]

TUser: Спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.043 c
4-43973
WdR
2003-12-25 17:31
2004.03.14
Отлов сообщения о перетаскивании колонок в ListView


3-43344
Rumba
2004-02-16 16:36
2004.03.14
FIBPlus 5.08 master-detail


1-43498
h
2004-02-28 23:27
2004.03.14
Вопрос про размещение компонент


3-43384
}|{yk
2004-02-18 13:59
2004.03.14
Процедуры, возвращающие набор значений в Оракле


7-43927
Mihin
2003-12-25 08:29
2004.03.14
Печать в текстовом режиме