имя компонента и его отслеживане

[bill]

Привет всем!!!
Как узнать имя поледнего компонента над которым мы произвели некоторое действие- например нажали кнопку?
Я сделал такой код : label1.Caption:=application.MainForm.ActiveControl. Name; Правилен ли он?
Если да то почему этот код не работает для speedbutton?
С уважением, bill.

[Net]

ActiveControl и тот, с которым было последнее действие - не одно и то же.
А для SpeedButton не работает, потому что она не может иметь фокус, т.к. наследуется от TGraphicControl и не имеет собственного окна.

[bill]

ладно. Ну тогда как узнать имя последнего компонента над которым мы произвели какое то действие?

[Net]

знаю только один способ - завести переменную и в коде каждого обработчика изменять ее на Sender. но если же обработчика нету, например, какого то checkbox1click, при щелчке на checkbox1, он не запишется в переменную.

[bill]

Т.е переменная насколько понял типа tobject?

[Net]

TControl. приводить ее к TControl.

[bill]

Ок. Я сделал такой код(привожу отрывок)-

var
Form1: TForm1;sa:tcontrol;
implementation
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
var ss:string;
begin
label1.caption:=sa.Name;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
sa:=Tcontrol(sender);
end;

Но с таким же успехом я мог сделать глобальную переменную типа стринг и присваивать ей просто имя компонента.
Как это сделать все таки через tnotifyevent(если мозможно конечно)? Надо просто проследить какая кнопка была нажата(по ней активируется некое действие). У них единое свойство parent.
И повторюсь узнать имя кнопки.

[bill]

Я собстно пересмотрел свою прогу и пришел к выводу что этот код мне подходит . Но возникла новая, тесно связанная с предыдущей.

Суть проблемы: надо над всеми кнопкам с таким то именем провести некую апирацию - например сдвинуть на 100 единиц вправо.
Проблема в том что имени я не знаю. Оно хранится в переменной типа string.
По идее алгоритм должен выглядить так-
.....
var asd:string;
begin asd:=a.name;//перем-я а типа tgraphiccontrol
with Source AS tspeedbutton do
if name=asd then
left:=left+100;
.......
Он ругается что не знает слова source([Error] Unit1.pas(64): Undeclared identifier: 'Source');
Также он ругается на строке if name=asd then
пишет - [Error] Unit1.pas(65): Instance variable 'Name' inaccessible here.
Помогите, я уже долго ломаю голову над подобной задачей.
С уважением, bill.

[Stilet]

Не проблема :
Вот в таком духе

[I]//********* FOR ******************
for i :=0 to Form1.ComponentCount-1 do
begin
//caption:=Application.Components[i].Name;
if (form1.Components[i].ClassType=TButton)
and (form1.Components[i].name=st_name_My) then
tbutton(form1.Components).Left:=0;
end;
//******* END FOR ****************{}

[Alter]

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

Не проблема :
Вот в таком духе

//********* FOR ******************
for i :=0 to Form1.ComponentCount-1 do
begin
[i]//caption:=Application.Components.Name;
[i] if (form1.Components.ClassType=TButton)
[i]and (form1.Components.name=st_name_My) then
[i] tbutton(form1.Components).Left:=0;
end;
//******* END FOR ****************{}

Можно ещё вот так:
for i :=0 to Form1.ComponentCount-1 do
begin
[I] //caption:=Application.Components.Name;
if (form1.Components[i] is TButton)
and (form1.Components[i].name = st_name_My) then
TButton(form1.Components[I]).Left:=0;
end;