Скачать: CL | DM;

Как можно рисовать объект типа 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 и его нельзя непосредственно расположить на рабочем столе.

---

← →
Olegz77 ©   (2008-08-25 21:01) [8]

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

---

← →
Olegz77 ©   (2008-08-25 21:04) [9]

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

---

← →
dmitry_12_08_73 ©   (2008-08-25 21:15) [10]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c