Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 091 • TDictionary Custom Sort 6 178 • Fast Watermark Sources 5 980 • 3D Designer 8 859 • Sik Screen Capture 6 318 • Patch Maker 6 729 • Айболит (remote control) 6 724 • ListBox Drag & Drop 5 582 • Доска для игры Реверси 95 973 • Графические эффекты 6 940 • Рисование по маске 6 197 • Перетаскивание изображений 5 111 • Canvas Drawing 5 482 • Рисование Луны 5 190 • Поворот изображения 4 737 • Рисование стержней 3 345 • Paint on Shape 2 583 • Генератор кроссвордов 3 482 • Головоломка Paletto 2 783 • Теорема Монжа об окружностях 3 582 • Пазл Numbrix 2 352 • Заборы и коммивояжеры 3 033 • Игра HIP 1 990 • Игра Go (Го) 1 911 • Симулятор лифта 2 268 • Программа укладки плитки 1 976 • Генератор лабиринта 2 429 • Проверка числового ввода 2 107 • HEX View 2 437 • Физический маятник 2 065

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Координаты курсора в Memo

Тяжело сгонять муху курсором с монитора.

var
  X, Y: LongInt;
begin
  Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  X := Memo1.Perform(EM_LINEINDEX, Y, 0);
  inc(Y);
  X := Memo1.SelStart - X + 1;
  Form1.Caption := 'X = ' + IntToStr(X) + ' : ' + 'Y = ' + IntToStr(Y);
end;

Координаты курсора в Memo

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