Следование за мышкой в TMemo для установки позиции курсора

Оформил: DeeCo

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
   Memo1.SelStart  := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y)));
   Memo1.SelLength := 0;
 end;

Похожие по теме исходники

Pursuit (преследование)

BTMemoryModule

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

Доска для игры Реверси

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 033 • TDictionary Custom Sort 6 137 • Fast Watermark Sources 5 936 • 3D Designer 8 792 • Sik Screen Capture 6 265 • Patch Maker 6 686 • Айболит (remote control) 6 682 • ListBox Drag & Drop 5 536 • Доска для игры Реверси 95 744 • Графические эффекты 6 908 • Рисование по маске 6 133 • Перетаскивание изображений 5 067 • Canvas Drawing 5 440 • Рисование Луны 5 154 • Поворот изображения 4 699 • Рисование стержней 3 313 • Paint on Shape 2 551 • Генератор кроссвордов 3 444 • Головоломка Paletto 2 756 • Теорема Монжа об окружностях 3 557 • Пазл Numbrix 2 329 • Заборы и коммивояжеры 3 018 • Игра HIP 1 972 • Игра Go (Го) 1 889 • Симулятор лифта 2 244 • Программа укладки плитки 1 955 • Генератор лабиринта 2 404 • Проверка числового ввода 2 084 • HEX View 2 413 • Физический маятник 2 044