Вопрос: Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени? Ответ:
В приведенном примере
показано как определить нажата ли клавиша Shift при выборе строчки меню. Пример
также содержит функции проверки состояния клавиш Alt, Ctrl. Прочитать остальную часть записи »
Вопрос:
Некоторые компоненты баз данных (и среди них TDBGrid) никак не меняют визуальных свойств, когда к ним отключен доступ (disabled). Как это изменить програмно?
Ответ:
Ниже приведен пример,
меняющий цвет шрифта на clGray, когда доступ к элементу управления (в данном
случае TDBGrid) запрещен (disabled). Прочитать остальную часть записи »
Вопрос: Как изменить число фиксированных колонок в TDbGrid? Пример: procedure TForm1.Button1Click(Sender: TObject); begin TStringGrid(DbGrid1).FixedCols := 2; end;
Вопрос: Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл? Ответ: В приведенном примере указано как получить эту информацию. Пример: procedure TForm1.Button1Click(Sender: TObject); begin MediaPlayer1.TimeFormat := tfFrames; ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length)); MediaPlayer1.TimeFormat := tfMilliseconds; ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length)); end;
Вопрос: Как разместить маленькие картинки в компоненте TPopUpMenu? Ответ:
В приведенном примере
показано как это сделать с использованием функции Windows API SetMenuItemBitmaps().
Эта функция получает handle popup menu, позицию строчки меню куда будет помещена
картинка, и два дескриптора(handles) на две картинки (одна из них – картинка
которая будет показана когда строка меню доступна, вторая – когда строка меню
недоступна). Прочитать остальную часть записи »