[Delphi] Status Bar

[Zaum 39]

Gente como eu faço pra por uma progress bar encima da Status bar, quando eu tento por a status bar vai pra baixo

[Surfistinha£ 25]

Colocando um ProgressBar em um StatusBar

 

procedure TForm1.FormCreate(Sender: TObject);

 

var

 

ProgressBarStyle: integer;

 

begin

 

StatusBar1.Panels[1].Style := psOwnerDraw;

 

ProgressBar1.Parent := StatusBar1;

 

ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,

 

GWL_EXSTYLE);

 

ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;

 

SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE,

 

ProgressBarStyle);

 

end;

 

evento OnDrawPanel do StatusBar1:

 

procedure TForm1.StatusBar1DrawPanel(

 

StatusBar: TStatusBar;

 

Panel: TStatusPanel;

 

const Rect: TRect);

 

begin

 

if Panel = StatusBar.Panels[1] then

 

with ProgressBar1 do

 

begin

 

Top := Rect.Top;

 

Left := Rect.Left;

 

Width := Rect.Right - Rect.Left - 15;

 

Height := Rect.Bottom - Rect.Top;

 

end;

 

end;

 

NOTA:

O ProgressBar tem uma borda padrão não muito agradável portanto removemos a borda.

[Zaum 39]

Olha eu acho que você nçao entendeu....EU quero por uma progress bar encima da status bar, mas quando eu tento por a status bar desce

[DragonBoss 9]

Não tem como "jogar" a progressbar em cima do statusbar, o melhor metodo é usar o codigo que o surf passou (que vc nem deve ter lido), que faz a progressbar ficar dentro de um panel da status bar.

 

flw, abraços

[Zaum 39]

ta mais se eu tpw da um full screen no programa a progress bar irá continuar encima da satus bar?

[Surfistinha£ 25]

Sim so aumentar a tela do seu programa

[Zaum 39]

Man deu um erro...

 

[~EvilCode 93]

Que erro? ¬¬'

[Jm' 1.002]

Atenção!

 

Este tópico foi ressuscitado.

Evite postar em tópicos cujo último post foi enviado a mais de 15 dias.

Caso tenha dúvidas sobre um tópico velho, inicie um novo tópico na área de Dúvidas.

 

Leia as Regras do Fórum:

 

• Regras Web Cheats