Embutir um TSpeedButton dentro de um panel do TStatusBar
02/04/2003
0
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
Curtir tópico
+ 0
Responder
Posts
02/04/2003
Nildo
Na hora de colocar o Parent do componente (pra jogar dentro do TSTatusBar), voce coloca assim:
parent := (SeuComponente as TWinControl)
parent := (SeuComponente as TWinControl)
Responder
02/04/2003
Anonymous
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. :)
Responder
Clique aqui para fazer login e interagir na Comunidade :)