Компонент

[Ky3Heu,]

Ребятки помогите плиз.. Как мне занести имя компонента, на котором кликнул пользователь в переменную?? Компонентов несколько десятков на форме.. одинаковые и разные...

[INVAZIA]

Так чтоли ?

procedure TForm1.Button1Click(Sender: TObject);
var
     s:string;
begin
     s:=Button1.Name;
     Form1.Caption:=s;
end;

[Ky3Heu,]

Спасибо за ответ, INVAZA. Но тип компонента, по которому кликнет пользователь мне не известен. Нужен обработчик событий, который позволит мне узнать, что за компонент и вычислить его имя... В голове вроде, что-то вертиться, а зацепиться не могу....

[VVM]

В примере на форме Edit, Button & Label.
Всем им назначаем один обработчик события - Button1Click.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender.ClassName = 'TButton' then
    Caption := (Sender as TButton).Name;
  if Sender.ClassName = 'TEdit' then
    Caption := (Sender as TEdit).Name;
  if Sender.ClassName = 'TLabel' then
    Caption := (Sender as TLabel).Name;
end;

end.

[Ky3Heu,]

Спасибо, VVM!!! Попробую этот код переработать под свою задачу!!!!

[Jeni]

Тогда уж проще в едином обработчике написать Caption := TComponent(Sender).Name;

[Лукманов Александр]

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

Тогда уж проще в едином обработчике написать Caption := TComponent(Sender).Name;

Вроде для всех типов компонентов нет обработчика OnClick

[Ky3Heu,]

Для тех компонентов, которые используются OnClick есть. Спасибо Jeni!!