VPF::кнопки - Форум программистов

Evghenusi

Дата 19.2.2008, 19:48 (ссылка)

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

Загрузка ...

майский жук

Профиль
Группа: Участник
Сообщений: 506
Регистрация: 3.8.2006
Где: Молдова, Кишинёв

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

Я создаю 10 кнопок при помощи этого кода

Код


procedure TForm1.Button1Click(Sender: TObject);
var i,l:integer;
begin
for i:=0 to 10 do begin
l:=l+20;
btns[I]:=TButton.Create(Self);
Btns[I].Parent:=Self;
Btns[I].Left:=l;
Btns[I].Top:=32;
Btns[I].Width:=20;
Btns[i].height:=20;
Btns[I].Caption:=inttostr(i);
Btns[I].OnClick:=Click1;
Btns[I].Name:='NewButton'+inttostr(I);
end;
end;

Как мне потом при нажатии на любую кнопку определить её имя?

Sanchezzz

Дата 19.2.2008, 20:06 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 1
Всего: 60

Код


...
var
s:string;
begin
s:=(Sender as TButton).caption; //.name или еще что понадобится
end;

при таком варианте можно и не задавать имя проще использовать tag потом по нужному индексу выполнять действия. ну это на твое усмотрение.

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

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

Evghenusi

Дата 20.2.2008, 20:52 (ссылка)

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

Загрузка ...

майский жук

Профиль
Группа: Участник
Сообщений: 506
Регистрация: 3.8.2006
Где: Молдова, Кишинёв

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

Sanchezzz, большое спасибо!

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