Внесение данных в последний активный Edit по нажатию кнопки ?

[student-ua]

Становимся на любой Edit нажимаем кнопку "Внести..."
и каком Edit мы стояли перед нажатием на кнопу у него
должна в нестись слово "ХОРОШО"

[kropotkina-alice]

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

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  myedit: TEdit;

implementation

{$R *.dfm}

procedure TForm1.Edit1Exit(Sender: TObject);
begin
myEdit:=(Sender as TEdit);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
(myedit as TEdit).Text:='ХОРОШО';
end;

end.

Не забудьте всем эдитам назначить одинаковый обработчик Edit1Exit...

[student-ua]

У меня 160 Edit-ов ? на каждый назначать долго другие варианты есть

[Аватар]

Сделай кнопку SpeedButton, она не получает фокус ввода и

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if ActiveControl is TEdit then TEdit(ActiveControl).Text:='ПЛОХО';
end;

А 160 эдитов ??

на каждый назначать долго

Один и тот же на все 160 совсем не долго

[student-ua]

БОЛЬШОЕ СПАСИБО все получилось !!!