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

Вниз

CreateForm с параметром Hide   Найти похожие ветки 

 
Turbid ©   (2004-05-28 13:26) [0]

Мне нужно чтобы программа при запуске пряталась из панели задач.
Для этого я использую при событии CreateForm Form.Hide, но она не прячется, хотя если Form.Hide привязать к нажатию кнопки, то все работает нормально. В чем проблемма?


 
Петров Денис ©   (2004-05-28 13:29) [1]

Из панели задач или с экрана?


 
Turbid ©   (2004-05-28 13:31) [2]

С экрана прячется Apllication.Minimize - тут все нормально. А с панели не хочет.


 
Петров Денис ©   (2004-05-28 13:35) [3]

перегрузи у формы CreateParams, и в ней отключи доп. стиль WS_EX_APPWINDOW


 
Turbid ©   (2004-05-28 13:38) [4]

Извини, но как это "прегрузи CreateParams"?


 
VMcL ©   (2004-05-28 13:50) [5]

>>Turbid ©  (28.05.04 13:38) [4]

TForm1 = class(TForm)
// ...
protected
 procedure CreateParams(var Params: TCreateParams); override;
end;


 
Петров Денис ©   (2004-05-28 13:55) [6]

Сорри, прогнал.
Точнее, тебе надо изменить доп. стиль у окна приложения, что-то вроде этого:

procedure TForm1.FormCreate(Sender: TObject);
var
 Long: Integer;
begin
 Long := GetWindowLong(Application.Handle, GWL_EXSTYLE);
 Long := Long or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
 SetWindowLong(Application.Handle, GWL_EXSTYLE, Long);
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.034 c
3-1085399227
Alex_xxx
2004-05-24 15:47
2004.06.13
Новая беда: где взять Provider=Microsoft.Jet.OLEDB.4.0???


1-1084999303
Паша555
2004-05-20 00:41
2004.06.13
Символы в Unicode


3-1084971741
Alex_xxx
2004-05-19 17:02
2004.06.13
Переход от Fox на MySQL: перенос данных, компоненты доступа к MyS


14-1085376070
ega23
2004-05-24 09:21
2004.06.13
Хокку дня....


1-1086120048
ViPer
2004-06-02 00:00
2004.06.13
Как узнать высоту строки RichEdit а?