вывод в Memo под курсором

[Aleksandar]

есть некоторая строка S и три компонента TMemo, как при нажатии Tbutton вывести данную строку именно в то Memo. где установлен курсор ввода???

[Izhic]

В смысле где был курсор ввода последний раз?
Т.к. когда нажимаете Батон, собственно выделяется кнопка, вероятно уже курсора нету.
ИМХО Глобальная переменная или с Tag'ом....

[mihali4]

когда нажимаете Батон, собственно выделяется кнопка, вероятно уже курсора нету

Его просто не видно, но мемо прекрасно знает, где он находился перед передачей фокуса.
Опять же, из моего FAQa:

Как в TMemo вставить дату в позицию каретки
Memo1.SetSelTextBuf(PChar(DateToStr (Date)));

Как вставить содержимое файла в текущую позицию курсора в компонете TMemo

Считайте файл в TMemoryStream, затем ипользуйте метод TMemo SetSelTextBuf() для вставки текста;

var
TheMStream : TMemoryStream;
Zero : char;
begin
TheMStream := TMemoryStream.Create;
TheMStream.LoadFromFile('C:\AUTOEXE C.BAT');
TheMStream.Seek(0, soFromEnd);
//Null terminate the buffer!
Zero := #0;
TheMStream.Write(Zero, 1);
TheMStream.Seek(0, soFromBeginning);
Memo1.SetSelTextBuf(TheMStream.Memo ry);
TheMStream.Free;
end;

[Aleksandar]

нет. немного не то
на форме 3 компонента TMemo, но вывести надо в один, где находится курсор ввода

если курсор в memo1 то текст при нажатии в Memo1
если в втором то во второе...

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

[mihali4]

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

Ну что ж... Это проще пареной репы.
Объявляем глобальную переменную mem.
Создаем обработчик для Memo1.OnEnter и в нем присваиваем mem:=номеру Memo as Sender (например).
Остальным Memo присваиваем этот же обработчик.
Таким образом мы всегда будем знать, в каком Memo курсор побывал в последний раз...

[Alter]

Могу предложить из простого такое(если надо, Clic_ в таймер поместите):

...................................................................
  public
   C_ :TControl;
   Procedure Clic_(Sender :TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Clic_(Sender :TObject);
begin
 If (ActiveControl is TMemo) then
  C_ := ActiveControl;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 If C_<>Nil then
 (C_ as TMemo).Lines.Add(Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.OnClick := Clic_;
 Memo2.OnClick := Clic_;
 Memo3.OnClick := Clic_;
end;