Вопрос: Как показать первый кадр AVI-файла? Ответ: См. пример. Пример: procedure TForm1.Button1Click(Sender: TObject); begin Application.ProcessMessages; MediaPlayer1.Open; Application.ProcessMessages; MediaPlayer1.Step; Application.ProcessMessages; MediaPlayer1.Previous; end;
Тэги ‘procedure’
Вопрос: Как получить число и список всех компонентов, расположенных на TNoteBook? Ответ: В примере список выводится на Listbox. Read the rest of this entry »
Вопрос: Как заставить TEdit не 'пикать' при нажатии недопустимых клавиш? Ответ: Перехватите событие KeyPress и установите key = #0 для недопустимых клавиш. Пример:
Вопрос: Как преобразовать цвета в строку - название цвета VCL? Ответ:
Модуль graphics.pas содержит
функцию ColorToString() которое преобразует допустимое значение TColor в его
строковое представление используя либо константу-название цвета (по возможности)
либо шестнадцатиричную строку. Обратная функция – StringToColor() Read the rest of this entry »
Вопрос:
При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter, появляется ошибка
“There are no fonts installed”.
Ответ:
Эти установки должны показать
шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows
ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно
и с экраном и с принтером. Read the rest of this entry »