Вопрос: Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус ввода не переходит к новой форме, а остается у старой? Ответ: В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей не передается.
Тэги ‘Visible’
Вопрос: Как узнать есть ли в заданном CD-ROM'е Audio CD? Ответ:
Можно использовать функцию
Windows API GetDriveType() чтобы определить является ли дисковод CD-ROM’мом.
И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство
‘Audio CD’. Read the rest of this entry »
Вопрос:
Как бы мне создать эдакий trackbar в котором вместо широкой белой полоски с ползунком была бы тонкая линия?
Ответ:
В примере создается компонент,
унаследованный от TTrackbar который переопределяет метод CreateParams и убират
флаг TBS_ENABLESELRANGE из Style. Константа TBS_ENABLESELRANGE обьявленна в
модуле CommCtrl.
Как скрыть форму при старте приложения?
К сожалению при создании окна приложения ни в одном из первых событий (OnCreate,
OnShow, OnActivate) нет доступа к свойству Visible. Использование функции
ShowWindow с параметром SW_HIDE в OnActivate-событии решает проблему (но
при этом не избежать кратковременного мерцания окна перед “исчезновением”):
procedure TForm1.OnActivate(Sender: TObject); begin ShowWindow(Handle, SW_HIDE); end;
чтобы сделать окно опять видимым необходимо вызвать ту же функцию, но уже
с другим параметром:
ShowWindow(Handle, SW_SHOW); Read the rest of this entry »
Как через индекс обратиться к нескольким компонентам?
Чтобы найти и сделать видимыми, например, компоненты с именами от “Label1″
и до “Label5″ можно использовать следующий вариант:
for t := 1 to 5 do
FindComponent('Label' + IntToStr(t)).Visible := TRUE;