Добавление текста в Edit

[Саня_]

По ходу дела столкнулся с проблемой: у меня на форме есть кнопки, при нажатии которых в Edit1 добавляются символы. Можно ли сделать так, что бы символы добавлялись не в конкретный Edit, а в тот, в котором стоит курсор?

[Serge_Bliznykov]

можно. Но прийдётся заводить глобальную переменную, куда записывать признак того эдита, который стал активным (куда Вы поставили курсор). Посмотрите внимательно на свою программу. Когда Вы нажимаете на кнопку, она (кнопка) становится активной, курсор из эдита пропадает.. Так?
Поэтому нужно сохранить информацию о том, какой эдит был активен перед нажатием кнопки. И в обработчике кнопки писать символы именно в него...

[asmodey1]

Если в качестве кнопки использовать SpeedButton, то фокус "убегать" не будет, но все равно придется либо действовать, как предложил Сергей, либо проверять наличие Focused у всех эдитов и писать в тот, у которого это свойство равно True.

[rodionov_uv]

можеть это смешно, но я делал так

назначал TabOrder как имя Edit (например Edit1.taborder=1 и т.д)

private
  procedure Enter;
    { Private declarations }
  public
  i:integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Enter;
begin
  i := ActiveControl.TabOrder;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TEdit(FindComponent('edit' + Inttostr(i))).Text := 'rvtybuntyny';
end;

procedure TForm1.Edit(здесь номер Edita)Enter(Sender: TObject);
begin
   enter;
end;

вот и всё

[Саня_]

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

можеть это смешно, но я делал так

назначал TabOrder как имя Edit (например Edit1.taborder=1 и т.д)

private
  procedure Enter;
    { Private declarations }
  public
  i:integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Enter;
begin
  i := ActiveControl.TabOrder;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TEdit(FindComponent('edit' + Inttostr(i))).Text := 'rvtybuntyny';
end;

procedure TForm1.Edit(здесь номер Edita)Enter(Sender: TObject);
begin
   enter;
end;

вот и всё

добавь плиз сюда эту программу, а то так не совсем понятно. И напиши адрес, куда залил... Заранее спасибо!)

[Volt]

var
  Form1: TForm1;
  Senders: TObject;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
(Senders as TEdit).Text:= 'текст';
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
Senders:=Sender;
end;

[veniside]

> можеть это смешно, но я .. назначал TabOrder как имя Edit

это действительно смешно. Не дай боже переименовать хоть один Едит, или хоть немного изменить порядок создания компонент (= зменить TabOrder), и весь ваш порядок рухнет.

Проще тогда в Enter() запоминать не TabOrder, а сам ActiveControl:

var
  lastEdit: TEdit;

procedure TForm1.Enter;
begin
  if (ActiveControl is TEdit) then
    lastEdit := ActiveControl as TEdit;
end;

Ну и Button1Click() упрощается заодно:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (nil <> lastEdit) then
    lastEdit.Text := 'Edit text';
end;

Хотя способ все-равно корявый (как и сама проблема, кстати).

[Саня_]

всем большое спасибо, разобрался)

[rodionov_uv]

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

> можеть это смешно, но я .. назначал TabOrder как имя Edit

это действительно смешно. Не дай боже переименовать хоть один Едит, или хоть немного изменить порядок создания компонент (= зменить TabOrder), и весь ваш порядок рухнет.

Проще тогда в Enter() запоминать не TabOrder, а сам ActiveControl:

var
  lastEdit: TEdit;

procedure TForm1.Enter;
begin
  if (ActiveControl is TEdit) then
    lastEdit := ActiveControl as TEdit;
end;

Ну и Button1Click() упрощается заодно:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (nil <> lastEdit) then
    lastEdit.Text := 'Edit text';
end;

Хотя способ все-равно корявый (как и сама проблема, кстати).

Просто я динамически создавал поля ввода, поэтому переименовать их просто незачем

вот так

      OpenBut.TabOrder := OpenBut.TabOrder + i;
      PrintBut.TabOrder := PrintBut.TabOrder + i;
      ReadList.Add(W.ActiveDocument.Range(n, k).Text);
      x:=TLabeledEdit.create(self);
      x.parent:=MyPanel;
      x.name := 'edit' + IntToStr(i);
      EditList.Add('edit' + IntToStr(i));
      x.EditLabel.Caption:= W.ActiveDocument.Range(n+3, k-2).Text;
      x.EditLabel.Font.Size := 11;
      x.Text := '';
      x.left:=10;
      x.top:=t;
      x.Width:=250;
      x.TabOrder:=i-1;

полный текст программы http://forum.codeby.net/topic41420.html

[Человек_Борща]

А ещё есть замечательное свойство Tag просто записывайте его в в переменную Last и по tag'у передавайте в Edit текст.