Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Назначение OnClick динамически созданному объекту - ПРОДОЛЖЕНИЕ

Pank83 © (2005-11-10 11:07:00)
Создал в коде много кнопок, назначил всем единую ПРоцедуру на OnClick. А можно-ли узнать какая из кнопок была нажата, желательно из тела ПРоцедуры.
Спасибо!

Суслик (2005-11-10 13:22:00) [1]

> Вовсе не извращение. Правда по другому: использовать TObjectList
> все таки удобнее и правильнее.

угу, а потом av ловить: TObjectList владеет TButton и Page владеет TButton.
уничтожать TButton полезут оба (если, конечно, не задать соотв. параметр TObjectList - но тогда это от массива мало отличается)

ZeroDivide (2005-11-10 12:38:00) [2]

> использован двумерный массив динамически создаваемых кнопок
> извращение? но пока по другому никак

Вовсе не извращение. Правда по другому: использовать TObjectList все таки удобнее и правильнее.

ZeroDivide (2005-11-10 12:37:00) [3]

> а создаю кноки так
> Btn[i,p]:=TButton.Create(Self);
> Btn[i,p].Caption:=s;
> Btn[i,p].Parent:=PageControl1.pages[i];
>

Ну дык впиши еще сюда
Btn[i,p]:=TButton.Create(Self);
Btn[i,p].Caption:=s;
Btn[i,p].Name := 'Button' + IntToStr(i)+IntToStr(p);
Btn[i,p].Parent:=PageControl1.pages[i];

И ShowMessage((Sender as TComponent).Name);будет работать

Суслик (2005-11-10 12:37:00) [4]
почему еще не в "начинающим"?

Pank83 (2005-11-10 12:19:00) [5]
Трабл возможно в следующем...
использован двумерный массивдинамически создаваемых кнопок

описан так
Btn:array [1..25,1..25] of TButton

а создаю кноки так
Btn[i,p]:=TButton.Create(Self);
Btn[i,p].Caption:=s;
Btn[i,p].Parent:=PageControl1.pages[i];

извращение? но пока по другому никак

umbra (2005-11-10 12:08:00) [6]
2 Pank83 © (10.11.05 11:52) [6]

как не работает?

TUser (2005-11-10 12:06:00) [7]
Часто бывает удобнее использовать св-во Tag.

Плохиш (2005-11-10 11:58:00) [8]

> Какие нибудь еще варианты есть?

Заняться изучением теории.

Pank83 (2005-11-10 11:52:00) [9]
Вы уж меня извините, но ShowMessage((Sender as TControl).Name) и (sender as tcomponent).name не работает. Какие нибудь еще варианты есть?

Суслик (2005-11-10 11:31:00) [10]
(sender as tcomponent).name

злобная танька (2005-11-10 11:30:00) [11]
sender это и есть объект. например трем кнопкам назначена одна процедура:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage((Sender as TControl).Name);
end;
выдает Button1, Button2 и т.д. соответственно.

Pank83 (2005-11-10 11:10:00) [12]
Из Сендера видно только имя класса, а хотелось бы имя объекта.

Pank83 (2005-11-10 11:09:00) [13]
Из Сурдера видно только имя класса, а хотелось бы имя объекта.

Суслик (2005-11-10 11:07:00) [14]
используй sender

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »