|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Всегда неактивная форма как виртуальная клавиатура в Windows
Кто-нибудь знает как сделать что бы форма всегда была неактивной?
|
#2
|
|||
|
|||
Можно так:
Код:
type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); { создайте обработчик события OnCreate для формы } private { Private declarations } procedure SendFormToBack(Sender: TObject); { Добавьте эту строчку... } public { Public declarations } end; Код:
procedure TForm1.FormCreate(Sender: TObject); begin Application.onActivate := SendFormToBack; end; { и, наконец, сама процедура, ответственная за удержание окна в низу z-порядка } procedure TForm1.SendFormToBack(Sender: TObject); begin Form1.SendToBack; end; Только что-то не пойму пока: окно активируется с некоторого раза при щелчке (только) на полосе заголовка... Раньше делала — вроде не было такого... Так что пока это стопроцентно работает для окна без заголовка (BorderStyle = bsNone). А если с заголовком, то активировать окно всё равно можно, пощелкав по синей полоске. |
#3
|
|||
|
|||
Nyctos Kasignete, спасибо! Думаю и мне это пригодится!
Цитата:
Auta i Lome... |
#4
|
||||
|
||||
Спасибо большое!
|