Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Форма на самом верху   Найти похожие ветки 

 
alexa   (2005-06-21 12:52) [0]

Как вывести одну из форм поверх всех приложений, которые в данный момент загружены?


 
TUser ©   (2005-06-21 13:03) [1]

fsStayOnTop


 
alexa   (2005-06-21 13:12) [2]


> fsStayOnTop

А что это вообще такое и куда это писать надо?


 
alexa   (2005-06-21 13:38) [3]

Помогите, мне очень нужно


 
TUser ©   (2005-06-21 13:41) [4]

FormStyle:=fsStayOnTop;


 
Eraser ©   (2005-06-21 14:48) [5]

alexa   (21.06.05 12:52)

private
   { Private declarations }
   procedure CreateParams(var Params: TCreateParams); override;
...
procedure TfmVoiceStatus.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.WndParent := GetDesktopWindow;
 Params.ExStyle := Params.ExStyle and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW;
end;

procedure TfmVoiceStatus.FormCreate(Sender: TObject);
var
 dwStyle: integer;
begin
 dwStyle := GetWindowLong(self.Handle, GWL_EXSTYLE);
 SetWindowLong(self.Handle, GWL_EXSTYLE, dwStyle or WS_EX_TOPMOST);
end;



Страницы: 1 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
14-1118254778
digger
2005-06-08 22:19
2005.07.11
Обрезали UTP кабель :-(


1-1118350350
Jakudza
2005-06-10 00:52
2005.07.11
sms server


14-1118211559
Layner
2005-06-08 10:19
2005.07.11
Чем можно "разобрать" XML файл кроме как XMLDocument


14-1118005350
Лёха2005_
2005-06-06 01:02
2005.07.11
Расшифровка cookie


3-1117176187
MakNik
2005-05-27 10:43
2005.07.11
Пересечение промежутков дат