Главная страница
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.021 c
3-43391
AntonSh
2004-02-13 15:09
2004.03.14
Работа с TQuery


1-43620
JIruaasgyy
2004-03-02 13:42
2004.03.14
А какой функцией узнать число ли в текстовом поле?


1-43494
BKGG
2004-02-29 09:57
2004.03.14
рисунок (*.bmp) в Dll


11-43419
Сергей Апин
2003-06-26 15:44
2004.03.14
Вопрос о доке для начинающих ;)


14-43821
Knight
2004-02-21 00:55
2004.03.14
Москвичи, требуется информация для размышления...