Значение в Caption

[god5]

Здравствуйте,допустим имеется 10 кнопок- когда нажимаю на любую кнопку нужно чтоб ее caption записывался в переменную и так на любой из 10 кнопок нажимаю и записывается значение переменной (то есть заменяется значение предыдущего caption )//это нужно потому что пользователь будет в разном порядке нажимать на кнопки.

[Stilet]

И в чем сложности?

[god5]

Сообщение от Stilet

И в чем сложности?

мне это нужно для того чтоб потом это значение записать как адрес ссылки типо сайт+это значение.
там вроде через sender а я с ним не работал sender as tobject пробовал // незнаю(

Сообщение от god5

мне это нужно для того чтоб потом это значение записать как адрес ссылки типо сайт+это значение.
там вроде через sender а я с ним не работал sender as tobject пробовал // незнаю(

я так то могу сделать) но можно же использовать другие средства кроме как if у меня кнопок много)

[Алексей_2012]

Ну для того чтобы поменять caption кнопки достаточно просто обработать событие onclick, например так(обрабатываем нажатие на кнопку 2):

procedure TForm1.button2Click(Sender: TObject);
begin
button1.caption:='Кнопка 1'; //присваиваем кнопке имя Кнопка 1 как только button2 нажата
end;

или так

procedure TForm1.button2Click(Sender: TObject);
begin
button1.caption:=button3.caption; //присваиваем кнопке button1 имя кнопки button3 как только button2 нажата
end;

извиняйте если не так вас понял


кстати, можно еще caption'у кнопки присваивать значения переменных

Строковая переменная:

procedure TForm1.button2Click(Sender: TObject);
var
s:string;
begin
s:='aaabbbccc';
button1.caption:=s;
end;

Переменная целого типа

procedure TForm1.button2Click(Sender: TObject);
var
ite:integer;
begin
ite:=123;
button1.caption:=inttostr(ite);
end;

Переменная вещественного типа

procedure TForm1.button2Click(Sender: TObject);
var
vesh:real;
begin
vesh:=123.123112;
button1.caption:=floattostr(vesh);
end;

[god5]

извиняйте если не так вас понял

не так)
ну вот есть 30 кнопок ;
я нажал на любую из 30
нужно чтоб ее caption (этой кнопки ) - записался в переменную;
потом нажимаю допустим на другую- значение переменной должно изменится;
я могу сделать
if button1.Click=true then s:=button1.caption;
но проблемма я не буду знать какую кнопку из 30 нажмет пользователь 1 2 и т.д
может быть можно как то одной процедурой это сделать чтоб 30 раз не прописывать) вот в чем проблемма)

[Алексей_2012]

то есть вам надо записать имя кнопки в переменную и все?

[Аватар]

Один обработчик на все буттоны
Какую нажали? TButton(Sender).Name или TButton(Sender).Tag, если заранее позабодиться и засунуть в Tag нужные значения

[Алексей_2012]

можно пройтись по всем компонентам на форме, если это кнопка, то занести ее каптион в массив, ну и потом прописать процедуру поиска

я просто не понимаю для чего ТС это надо*

[Serge_Bliznykov]

на все кнопки назначайте ОДИН и тот же обработчик (например, button1Click).
в нём напишите так:

procedure TForm1.button1Click(Sender: TObject);
begin
 if Sender is TButton then 
      s := TButton( Sender).caption;
end;

и всё!

p.s. в пост #7 Аватар предложил тоже самое, что и я...

[Stilet]

если заранее позабодиться и засунуть в Tag нужные значения

Еще проще:

if sender=Button1 then

выясняет нажата ли Button1.
Tag дергать не обязательно.