Главная страница
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.044 c
3-1117141559
highlander
2005-05-27 01:05
2005.07.11
Помогите разобраться с запросом


14-1118725730
serguncho
2005-06-14 09:08
2005.07.11
Помогите с переменной в PHP


14-1118266167
Megabyte
2005-06-09 01:29
2005.07.11
Хороший ФАК по FIB


14-1117957947
Antonn
2005-06-05 11:52
2005.07.11
Многопоточное приложение


1-1118618322
01
2005-06-13 03:18
2005.07.11
Как сохранить структуру в файл