VPF::Как обработать события OnClick у динамически созда

Rohoss

Дата 28.12.2007, 04:34 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

создаю кнопку динамически

Код


var
DinamKnonkaDiska:TBitBtn;
begin
    DinamKnonkaDiska:=TBitBtn.Create(Form1);
    DinamKnonkaDiska.Parent:=Form1.Panel3;
   DinamKnonkaDiska.Name:='disk'+disk;
end;

Как отреагировать на нажатия этой кнопкм?

Заранее спасибо!

--------------------

Файловый менеджер Explorer.Net скачать video

Ofer

Дата 28.12.2007, 04:50 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.10.2006
Где: КривбаСС

Репутация: нет
Всего: 5

Создай отдельно процедуру, выполняющую нужные действия, а затем присвой ее обработчику твоей кнопки

Код


DinamKnonkaDiska.OnClick := Form1.YourProcedure;

P.S. Только все параметры твоей процедуры должны соответствовать параметрам обычного обработчика OnClick. Т.е. должно быть так

Код


procedure TForm1.YourProcedure(Sender: TObject);

Rohoss

Дата 28.12.2007, 05:42 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Почему-то не получается… smile

А можно пример smile

?
Тем более я создаю не одну кнопку, с одного объекта, примерно так

Код


var
DinamKnonkaDiska:TBitBtn;
I:Integer;
begin
  for I := 0 to 100 do
     begin
       DinamKnonkaDiska:=TBitBtn.Create(Form1);
       DinamKnonkaDiska.Parent:=Form1.Panel3;
       DinamKnonkaDiska.Name:='disk'+IntToStr(I);
     end;
end;

Я так понял тут ещё нужно обратится к кнопке по её имени?

--------------------

Файловый менеджер Explorer.Net скачать video

Rohoss

Дата 28.12.2007, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

В общем разобрался…
примерно так

Код


var
I:Integer;
BitTop:Integer;
begin
BitTop:=0 ;
  for I := 0 to 10 do
     begin
       DinamKnonkaDiska:=TBitBtn.Create(Form1);
       DinamKnonkaDiska.Parent:=Form1;
       DinamKnonkaDiska.Name:='disk'+IntToStr(I);
       DinamKnonkaDiska.Top:=BitTop;
       BitTop:=BitTop+40;
       (Form1.FindComponent('disk'+IntToStr(I)) as TBitBtn).OnClick :=Form1.Mesa;
     end;
end;

и узнаем какая кнопка нажата

Код


ShowMessage('Mes'+Form1.ActiveControl.Name );

--------------------

Файловый менеджер Explorer.Net скачать video

Exai1e

Дата 28.12.2007, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30

Можно сделать так

Код


procedure TForm1.MyClick(sender: TObject);
begin
  ShowMessage(TButton(Sender).Name);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to 100 do
  begin
    btn := Tbutton.Create(Form1);
    btn.Parent := self;
    btn.Top := i;
    btn.Name := IntToStr(i);
    btn.OnClick := MyClick;
  end;
end;

Это сообщение отредактировал(а) Exai1e - 28.12.2007, 08:50

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »