freepascal.ru

Подскажите как в Лазарусе реализовать функцию аналогичную фукции делфи

showwindow(Application.handle, SW_HIDE); //Прячим кнопку на панели задачь, форма видима и можно с ней работать
showwindow(Frorm1.handle, SW_HIDE); //Прячим форму

Интересуют обе функции, нужно чтоб кнопки на панели не было, а с формой можно было работать.

Эти функции не Делфи! Это чистый WinAPI
У каждой формы есть свойство ShowInTaskBar - должно работать

А в Винде не кто тебе не мешает использовать эти функции. Подключи модуль Windows

Подключил модуль Windows...
showwindow(Form1.handle, SW_HIDE); //Прячим форму
ЗАРАБОТАЛА, форма исчезает.

showwindow(Application.handle, SW_HIDE); //Прячим кнопку на панели задачь, форма видима и можно с ней работать
НЕРАБОТАЕТ, жалуется на HANDLE (Error: identifier idents no member "Handle")

Не изобретай велосипед - у каждого окна есть свойство ShowInTaskBar - и не надо мучаться.

А я все таки нашел решение
Все оказалось очень просто...
может кому тоже пригодиться:

ShowWindow(FindWindow(nil,'project1'), sw_hide); - прячим кнопку на панели задачь
ShowWindow(FindWindow(nil,'project1'), sw_show); - показываем кнопку на панели задачь

Пользуйтесь

qivi писал(а):А я все таки нашел решение
Все оказалось очень просто...
может кому тоже пригодиться:

ShowWindow(FindWindow(nil,'project1'), sw_hide); - прячим кнопку на панели задачь
ShowWindow(FindWindow(nil,'project1'), sw_show); - показываем кнопку на панели задачь

Пользуйтесь

Это не выход! Очень медленно!

alexs писал(а):Не изобретай велосипед - у каждого окна есть свойство ShowInTaskBar - и не надо мучаться.

на Application он не расспространяется...

А как пользоваться ShowInTaskBar, что-то я не понял .... какой параметр не ставил этому свойству, ничего не происходило
Киньте примерчик пожалуйста...

Mr.Smart писал(а):на Application он не расспространяется...

Application.ShowMainForm
Глядеть в исходники LCL очень полезно.

qivi писал(а):как пользоваться ShowInTaskBar, что-то я не понял

stDefault - системное поведение
stAlways - отображать всегда
stNever - не отображать

работает