Как можно рисовать объект типа TPanel в любом месте экрана

← →
dmitry_12_08_73 © (2008-08-25 17:33) [0]

Можно ли рисовать объект типа TPanel в любом месте экрана без привязке к форме. Дело в том, что если Panel1.Parent = nil, то объект не рисуеться вовсе.

← →
Medbe}I{onok XML © (2008-08-25 17:34) [1]

TPanel рисует windows

← →
dmitry_12_08_73 © (2008-08-25 17:37) [2]

не понял

← →
{RASkov} © (2008-08-25 17:38) [3]

with TPanel.Create(nil) do begin ParentWindow:=GetDesktopWindow; Show; end

← →
Dimka Maslov © (2008-08-25 17:40) [4]

Любой объект-наследник TWinControl при правильной инициализации может стать окном, расположенным непосредственно на рабочем столе (как форма). Примером как это следать служит THintWindow (или THintWnd).

← →
dmitry_12_08_73 © (2008-08-25 17:41) [5]

спасибо

← →
dmitry_12_08_73 © (2008-08-25 20:19) [6]

Как быть в случае, например, с TShape? у этого компонента нет свойства GetDesktopWindow.

← →
Olegz77 © (2008-08-25 21:00) [7]

GetDesktopWindow это не свойство, а функция WinAPI. TShape не является окном: он потомок TGraphicControl, а не TWinControl - как TPanel. У него нет свойства ParentWindow и его нельзя непосредственно расположить на рабочем столе.

Единственный вариант: разместить его на каком-нибудь оконном компоненте, например, TPanel, а тот, в свою очередь, уже на рабочем столе. Но тогда надо что-то придумывать с прозрачностью, чтобы сам TPanel не был виден.

Возможно подойдет такой вариант: использовать в качестве подложки форму без заголовка (BorderStyle = bsNone) с включенной прозрачностью: AlphaBlend = True, AlphaBlendValue = 0.

спасибо, буду думать, как лучше

Как можно рисовать объект типа TPanel в любом месте экрана Найти похожие ветки