Текущий архив: 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.47 MB
Время: 0.026 c
