Доступ к тексту Edit-а, находящегося в фокусе

[Mazourik]

Добрый день.
Форма имеет несколько Edit-ов.
Для каждого своя процедура фильтрации нажимаемых клавиш TForm1.EditNKeyPress(Sender: TObject; var Key: Char).
Процедуры одинаковые, отличие только в доступе к вводимому тексту EditN.Text, отличаются только N.
Как получить доступ к вводимому тексту текущего (в фокусе) Edit-а, чтобы объединить все процедуры в одну?
ActiveControl.Name позволяет определить только имя текущего Edit-а.

[DIgorevich]

Для всех edit'ов единая процедура должна быть. Для этого их все в конструкторе выделяем, и в инспекторе на событие OnKeyPress пишем свой код в стиле:

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  form1.Caption:=(Sender as TEdit).Text;
end;

[xxbesoxx]

Как получить доступ к вводимому тексту текущего (в фокусе) Edit-а

Почитай про " taborder " и "Edit4.SetFocus" на пример переходим при нажатии enter из одного на другом

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if Msg.CharCode = 13 then
  begin
    if Edit1.Focused then
    begin
      Edit2.SetFocus;
      Handled := true;
    end
    else
    if Edit2.Focused then
    begin
      Edit3.SetFocus;
      Handled := true;
    end
    else
    if Edit3.Focused then
    begin
      Button1.Click;
      Handled := true;
    end;
  end;
end;

end.

[саша40]

Возможно обработать сообщение WM_EditKeyPress(или подобное). А дальше дело техники:

var 
a: string;
begin
a:=(GetFocus() as TEdit).Text;
end; //в a текст из edit-а в котором находится курсор ввода

GetFocus выдаст указатель на компонент, в котором находится курсор ввода, этот указатель мы приводим к TEdit(так как указатели на объекты и ссылки на объекты - это одно и то же), а оттуда уже получаем текст. Вот и всё!

[Mazourik]

Большое спасибо, все работает!