Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.03.2009, 14:38
Аватар для AnnLee
AnnLee AnnLee вне форума
Прохожий
 
Регистрация: 09.01.2008
Сообщения: 12
Репутация: 10
По умолчанию Всегда неактивная форма как виртуальная клавиатура в Windows

Кто-нибудь знает как сделать что бы форма всегда была неактивной?
Ответить с цитированием
  #2  
Старый 30.03.2009, 15:56
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

Можно так:
Код:
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  
Старый 30.03.2009, 16:08
BloodFooria BloodFooria вне форума
Новичок
 
Регистрация: 30.10.2008
Адрес: Улан-Удэ
Сообщения: 81
Репутация: 10
По умолчанию

Nyctos Kasignete, спасибо! Думаю и мне это пригодится!
Цитата:
Сообщение от Nyctos Kasignete
А если с заголовком, то активировать окно всё равно можно, пощелкав по синей полоске.
xDDD Не у всех она синяя xD
__________________
Auta i Lome...
Ответить с цитированием
  #4  
Старый 30.03.2009, 18:01
Аватар для AnnLee
AnnLee AnnLee вне форума
Прохожий
 
Регистрация: 09.01.2008
Сообщения: 12
Репутация: 10
По умолчанию

Спасибо большое!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:23.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter