Форум: "Начинающим";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Внизпозиция мыши в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c