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

← →
Привет (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;

все...

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