Возникла проблема. Никак не могу сделать Edit прозрачным. Суть в том, что фон у Edit’a можно сделать того же цвета, что и форма. Но незадача в том, что у меня Edit находится на Image. В общем, что только не пробовал, а ни в какую.

(читать всё…)

Есть у кого пример работы с планшетом типо wacom stu-300 в delphi XE7?

(читать всё…)

Необходимо узнать координаты коретки RichEdit в пиксилях относительно высоты и ширины компонента.
CaretPos.X не предлагать, он показывает номер строки и символа, а не координаты.

(читать всё…)

Нужно сделать ListView со стилем LVS_REPORT, чтобы каждый элемент второго или третьего столбца содержал в себе HotKey. При изменении клавиш в хоткее, получать индекс ListView и записывать измененную клавишу в переменную.
куда копать?
Или так (второй вариант): делаем даблклик по строке ListView. Создаем HotKey во втором столбце ListView. Когда HotKey потеряет фокус, уничтожаем его и записываем клавишу в текстовом виде в нужную позицию ListView.
Будет ли это работать? Какой вариант проще сделать?

(читать всё…)

Как задать верхний и нижний отступы в компоненте RichEdit?

(читать всё…)

Дана строка символов, содержащая слова. Определить количество слов, первый и последний символы которых совпадают, если же таких слов нет то выдать на экран соответствующее сообщение.

(читать всё…)

Удалить все элементы, большие данного числа А (А вводить с клавиатуры).

(читать всё…)

Нужно создать приложение, в котором шестиугольник вращается относительно своего центра против часовой стрелки. Фигура имеет черный контур толщиной в 2 пикселя. Внутренняя заливка меняется с красной на зеленую, затем на синюю после каждого поворота фигуры.

(читать всё…)

Вычислить методом касательных корень уравнения x^3-2x^2+x-3=0. Начальное приближение к корню 2.2. Абсолютная погрешность приближения не должна превышать e(задается преподавателем). e=0.1

(читать всё…)

Есть список файлов, который имеет правильную сортировку (По Имя и По возрастанию). Загружаю их в TStringList, где сортировка не радует. Как исправить положение? Имена файлов числа.

Sort;
Sorted := True

Не помогают

1.txt
10.txt
100.txt
11.txt
12.txt
2.txt
20.txt
200.txt
3.txt
4.txt

(читать всё…)