Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.056 c