Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

позиция мыши в memo   Найти похожие ветки 

← →
Nipel   (2007-03-07 13:44) [0]

Мне нужно вставить строку в MEMO( если надо Rich edit) на позицию мыши и перевести ти вперед(мышь) на n символов.
        mouse is here пример.
Заранее благодарен.

---

← →
default ©   (2007-03-07 13:59) [1]

вот это посмотри

procedure TForm1.Button1Click(Sender: TObject);
var
 s: String;
begin
  s := Clipboard.AsText;
  Clipboard.AsText := "StringToPaste";
  Memo1.PasteFromClipboard;
  Clipboard.AsText := s;
  Memo1.SetFocus
end;


---

← →
default ©   (2007-03-07 13:59) [2]

uses Clipbrd;

---

← →
nipel   (2007-03-07 14:31) [3]

спасибо. С меня молоко

---

← →
begin...end ©   (2007-03-07 21:53) [4]

> default ©   (07.03.07 13:59) [1]

Memo1.SelText := "StringToPaste"

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c