Нужно сделать 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

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

Необходимо выполнить чтение из буфера результата cmd, делаю следующее:

procedure TForm1.Button2Click(Sender: TObject);
var
  s:TStringList;
  i: integer;
begin
  s:=TStringList.Create;
  Clipboard.AsText:='';
  WinExec('cmd /c net user |clip',SW_SHOWNORMAL);
  S.Text:= Clipboard.AsText;
  for I := 0 to s.Count-1 do
    Memo1.Lines.Add(s[ i]);
  s.Free;
end;

В результате Memo пустое, но в буфере есть необходимая инфа, по Ctrl+V выводится. Что делаю не так?

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

Пожалуйста,помогите сделать экспорт из Memo в Word.

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

Не могу сделать автоматическое переключение на следующий трек при воспроизведении. Может, подскажет кто-нибудь какой нужен код для этого? Использую стандартный компонент TMediaPlayer.

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