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

Вниз

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

 
Delphin ©   (2004-06-03 20:08) [0]

Создаю кнопки таким способом:
var
BB:TButton;

BB:=TButton.Create(Self);
BB.Parent:=Self;
BB.Name:="B"+IntToStr(I);
BB.Caption:="Button"+IntToStr(I);
BB.Top:=26*i;
Inc(I);
Всё работает идеально.
Как правильно создать обработчик нажатия на кнопку (уже раннее созданую)
пробовал так:
BB.OnClick(Sender);
Begin
ShowMessage(BB.Name);
End;
Компилируется нормально, но возникает Access valution
что тут не так ?
З.Ы
Заранее благодарен


 
Vlad ©   (2004-06-03 20:18) [1]


> BB.OnClick(Sender);
> Begin
> ShowMessage(BB.Name);
> End;

ЧТО ЭТО ?

--
procedure TForm1.MyButtonClick(Sender:TObject);
begin
ShowMessage("fff");
end;
.....
BB.OnClick := MyButtonClick;


 
panov ©   (2004-06-03 20:20) [2]


type
 TForm1 = class(TForm)
   Button3: TButton;
   procedure MyonClick(Sender: TObject);

procedure TForm1.MyonClick(Sender: TObject);
begin
 ShowMessage("ВАУ!");
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 BB:TButton;
begin
 BB:=TButton.Create(Self);
 BB.Parent:=Self;
 BB.Name:="B";
 BB.Caption:="Button";
 BB.Top:=26;
 BB.OnClick := MyOnClick;
end;


 
miwa ©   (2004-06-03 20:22) [3]

Ну, например так:

         with TButton.Create(frmMain) do begin
           Width:=75;
           Height:=25;
           Left:=frmMain.ClientWidth - 80;
           Anchors:=[akTop,akRight];
           Name:="something";
           OnClick:=frmMain.CustombtnClick;
           Parent:=frmMain;
         end;

Да, а копирование ответа в буфер перед отправлением все еще рулит :о))


 
Delphin ©   (2004-06-03 20:22) [4]

Всем спасибо, теперь понятно :)



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
14-1086109285
VeTaL
2004-06-01 21:01
2004.06.20
Удаление файла


4-1084117252
a_legayda@mtu-net.ru
2004-05-09 19:40
2004.06.20
Шрифты


1-1086327501
Sea Eagle
2004-06-04 09:38
2004.06.20
Работа с документом MS Word без установленного Офиса?


1-1086216041
hiperLogun
2004-06-03 02:40
2004.06.20
XP Menu


14-1086098165
Exciter
2004-06-01 17:56
2004.06.20
Кто знает как работать с FB в С# ???