Как совсем скрыть форму?
Для того, чтобы скрыть форму, используйте функцию ShowWindow:
ShowWindow(Handle, SW_HIDE);Можно еще задать форме позицию, при которой она не будет отображаться на мониторе:
Form1.Left:=-10000;В итоге получится как-то так:
procedure TForm1.OnActivate(Sender: TObject); begin Form1.Left:=-10000; //чтобы прога не мерцала при запуске ShowWindow(Handle, SW_HIDE); end;Вот и всё, Удачи!
Добавил(а): ДимаДК | Дата: 2013-11-28 | |
Хочу сделать небольшое замечание: ShowWindow(Handle, SW_HIDE); скрывает и форму и значок в панели задач, Form1.Left:=-10000; - скрывает только форму но в панели задач значок висит, а чтобы только скрыть значок можно использовать такой код:
var
CurStyle: Integer;
begin
CurStyle := GetWindowLong(Handle, GWL_EXSTYLE);
CurStyle := (CurStyle or WS_EX_TOOLWINDOW) and (not WS_EX_APPWINDOW);
SetWindowLong(Handle, GWL_EXSTYLE, CurStyle);
end;
|
Добавил(а): Denismen | Дата: 2014-01-25 | |
Все там верно. Не нужно ничего исправлять.
|
No results found.