Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > кнопки

Автор: Evghenusi 19.2.2008, 19:48

Я создаю 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

Код


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

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

Автор: Evghenusi 20.2.2008, 20:52

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