Вопрос: Функция keybd_event() принимает значения до 244 - как мне отправить нажатие клавиши с кодом #255 в элемент управления Windows? Ответ: Это может понадобится для иностранных языков или для специальных символов. (например, в русских шрифтах символ с кодом #255 - я прописное). Приведенный в примере метод, не стоит использовать в случае если символ может быть передан обычным способом (функцией keybd_event()). Прочитать остальную часть записи »
9июня
Можно ли сделать так – одна форма показывает другую и остается позади нее
admin | Рубрика: Delphi FAQ
Вопрос: Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус ввода не переходит к новой форме, а остается у старой? Ответ: В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей не передается. Пример: uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Application); Form2.Visible := FALSE; ShowWindow(Form2.Handle, SW_SHOWNA); end;
Вопрос: При попытке использовать метод TCanvas.StretchDraw чтобы нарисовать иконку увеличенной ее размер не изменяется. Что делать? Ответ: Иконки всегда рисуются размером принятым в системе по умолчанию. Чтобы показать увеличенный вид иконки скоприуйте ее на bitmap, а зате используйте метод TCanvas.StretchDraw. Прочитать остальную часть записи »
Вопрос: Как показать первый кадр AVI-файла? Ответ: См. пример. Пример: procedure TForm1.Button1Click(Sender: TObject); begin Application.ProcessMessages; MediaPlayer1.Open; Application.ProcessMessages; MediaPlayer1.Step; Application.ProcessMessages; MediaPlayer1.Previous; end;
9июня
Как убрать кнопку с названием моей программы из Панели Задач(Taskbar)?
admin | Рубрика: Delphi FAQ
Вопрос: Как убрать кнопку с названием моей программы из Панели Задач(Taskbar)? Ответ:
Отредактируйте файл-проекта
(View -> Project Source) Добавьте модуль Windows в раздел uses. Application.ShowMainForm
:= False; в строку после “Application.Initialize;”. Добавьте ShowWindow(Application.Handle,
SW_HIDE); в строку перед “Application.Run;” Прочитать остальную часть записи »