Главная страница
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.024 c
6-1112696972
lexales
2005-04-05 14:29
2005.07.11
7 Файлов


3-1117141559
highlander
2005-05-27 01:05
2005.07.11
Помогите разобраться с запросом


14-1118258843
Ломброзо
2005-06-08 23:27
2005.07.11
Нумерация в MS Word


3-1117514779
Тучудище
2005-05-31 08:46
2005.07.11
Хранение отчетов вне EXE файла


1-1119361374
Alex17
2005-06-21 17:42
2005.07.11
Фаил