Delphi Как узнать индекс компонента

[Alex1991]

Как узнать индекс компонента по которому кликнули мышкой ??

[p51x]

Индекс где?

[Alex1991]

ну мне нужно индекс компонента(TLabel) по которому мы кликнули мышкой

[raxp]

объединяете все лабели под одним кликом и (sender as tlabel).tag ...name ...caption ...и т.п.

[Alex1991]

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

объединяете все лабели под одним кликом и (sender as tlabel).tag ...name ...caption ...и т.п.

ну вообщем у меня есть форма на ней кнопка, при нажатии кнопки создается и размещается на форме переменная MyLabel. Также есть на форме информационная метка которая выводит имя(Caption) метки по которой пользователь кликнул.

Вообщем такое мне нужно

[raxp]

вот видите, что нужно полностью формулировать задачу и условия... итак, имеем динамически создаваемый компонент mylabel: tlabel, отсюда - при создании назначьте на него событие onclick и внутри него ваша информационная метка, вот и все.

[Alex1991]

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

вот видите, что нужно полностью формулировать задачу и условия... итак, имеем динамически создаваемый компонент mylabel: tlabel, отсюда - при создании назначьте на него событие onclick и внутри него ваша информационная метка, вот и все.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    Label2: TLabel; 
    Label1: TLabel;                                //информационная метка
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure ClickLabel(Sender: TObject);
  end;

var
  Form1: TForm1;
  MyLabel: TLabel;
  CountOfLabel: integer;
  Tp: integer= 56;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
CountOfLabel:=CountOfLabel+1;
MyLabel:=TLabel.Create(self);
MyLabel.Parent:=Form1;
MyLabel.Caption:=IntToStr(CountOfLabel);
MyLabel.Font.Size:=10;
MyLabel.Font.Name:='Arial';
MyLabel.Font.Style:=[fsBold, fsItalic];
MyLabel.Top:=MyLabel.Top+Tp;
MyLabel.Left:=300;
MyLabel.OnClick:=ClickLabel;
Tp:=Tp+13;
end;

procedure TForm1.ClickLabel(Sender: TObject) //runtime событие клика
begin
Label1.Caption:=MyLabel.Caption; // но если так то информационной метке присваевается Caption от последней созданной метке ((
end;

end.

Подскажите как сделать правильно
Может быть MyLabel сделать массивом ??

[raxp]

всего-лишь замените на Label1.Caption:= (sender as tlabel).caption