Embutir um TSpeedButton dentro de um panel do TStatusBar
Existe uma maneira de eu ´embutir´ um TLabel, ou TStaticText ou um TSpeedButton dentro de um TStatusBar? Eu até sei como fazer isso com componentes descendentes da classe TWinControl porque eles tem o método Handle e a procedure PaintTo. Contudo com os componentes descendentes de TGraphicControl tá difícil. Se alguém souber, ficarei muito agradeço. :shock:
Anonymous
Curtidas 0
Respostas
Nildo
02/04/2003
Na hora de colocar o Parent do componente (pra jogar dentro do TSTatusBar), voce coloca assim:
parent := (SeuComponente as TWinControl)
parent := (SeuComponente as TWinControl)
GOSTEI 0
Anonymous
02/04/2003
Nildo, é impossível eu instanciar um TGraphic para um TWinControl. Olha só:
Dentro do OnDrawPanel do StatuBar:
with TWinControl(SpeedButton1) do
SetWindowPos(Handle, 0, Rect.Left, Rect.Top + StbPrincipal.Top,
Width, Height,
SWP_NOZORDER or SWP_SHOWWINDOW);
Isso vai disparar um AV...
Mas mesmo assim valeu por ter respondido. :)
Dentro do OnDrawPanel do StatuBar:
with TWinControl(SpeedButton1) do
SetWindowPos(Handle, 0, Rect.Left, Rect.Top + StbPrincipal.Top,
Width, Height,
SWP_NOZORDER or SWP_SHOWWINDOW);
Isso vai disparar um AV...
Mas mesmo assim valeu por ter respondido. :)
GOSTEI 0
Nildo
02/04/2003
use um Window.setParent(Graphic1.handle, statusBar1.handle);
GOSTEI 0