ввод данных

[opel.omega]

Всем привет! ребят такой вопрос у меня на форме несколько едитов и кнопочки 1 2 3 4 5 6 7 8 9 0 мне нужно чтоб по нажатию кнопки вводилось соответсвующее число в едит так проблема в том что я знаю как вводить в определенный едит

SendMessage(Edit1.Handle, wm_char, ord('1'),0);

а вот как сделать так чтоб вводилось туда на каком едите я кликну!
Помогите пожалуйста
Заранее спасибо

[SERG1980]

Самый простой способ это

if edit1.Focused then...else if

[opel.omega]

да но к слову у меня 10 едитов и как их прописать всех???

[opel.omega]

Ребят должен же быть какой нибудь способ
Помогите плииззз!!!

[_SERGEYX_]

Глобальная
var e: TEdit;
На все edit-ы повесь код

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 e:=(Sender as TEdit);
end;

При клике на кнопке

procedure TForm1.Button1Click(Sender: TObject);
begin
e.Text:='12345';
end;

[FaTaL]

Вот рабочий пример:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure EditsClicks(Sender: TObject);
    procedure ButtonsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  EditName: TEdit;

implementation

{$R *.dfm}

procedure TForm1.EditsClicks(Sender: TObject);
begin
  EditName:=(Sender as TEdit);
end;

procedure TForm1.ButtonsClick(Sender: TObject);
begin
  EditName.Text:=(Sender as TButton).Caption;
end;

end.

Всем едитам присвой процедуру EditsClicks
А всем кнопкам ButtonsClick
И всё работает олично

[opel.omega]

я применил совет _SERGEYX_ огромное ему спасибо только вот проблема когда вводиш одно значение а потом второе то первое автоматом стерается. как сделать так чтоб вводилось несколько значений в моем случае это цифры 0-9 и запитая

[_SERGEYX_]

сделать так чтоб вводилось несколько значений

Наверно, так...
Edit.Text:=Edit.Text+'что-то';

[mihali4]

Еще точнее - небольшое изменение в правильный ответ от Fatal:

procedure TForm1.ButtonsClick(Sender: TObject);
begin
  EditName.Text:=EditName.Text+(Sender as TButton).Caption;
end;

[opel.omega]

_SERGEYX_ тебе РЕСПЕКТ и огромное спасибо выручил
Админам просьба нагродить чееловека респектом помог конкретно!!!