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

Вниз

Динамическое создание кнопок   Найти похожие ветки 

 
Привет   (2005-08-17 23:10) [0]

Здравствуйте. Динамически создаю на форме 10 кнопок, присваиваю им имена (типа Btn1, Btn2 ...). Как прописать событие OnClick у таких кнопок, чтобы при работе программа распознавала какая именно кнопка нажата (хотя бы её номер) ? Заранее спасибо.


 
DrPass ©   (2005-08-17 23:14) [1]

if (Sender as TButton).Name="Btn1" then...


 
Pasha L ©   (2005-08-17 23:25) [2]

Советую использовать свойство tag у TButton (он используется по усмотрунию юзера). При создании кнопок в него можно записывать номер кнопки.


 
afanasic   (2005-08-18 09:33) [3]

Создаешь процедуру

procedure TForm1.MyOnClick(Sender: TObject);
begin
 // как написал DrPass
 if (Sender as TButton).Name="Btn1" then
   DoSomething;
end;


Далее при условии, что Btn1{BtnX}.Parent = Form1
BtnX.OnClick := MyOnClick;

все...



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

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

Наверх




Память: 0.47 MB
Время: 0.218 c
9-1117053822
XCoder
2005-05-26 00:43
2005.09.25
GL_MODELVIEW


14-1125480165
Layner
2005-08-31 13:22
2005.09.25
Знатокам IE (6), печать из IE широкой таблицы


14-1125893012
vajo
2005-09-05 08:03
2005.09.25
Вирус: Trojan-PSW.win32.vipgsm.ap


10-1103636663
andsoft
2004-12-21 16:44
2005.09.25
Создание таблицы в трехуровневом приложении из клиента


14-1125378294
Shakal
2005-08-30 09:04
2005.09.25
Плейлист в Delphi?