状态条如何加图片？如何加进度条？

Question

谢谢

Answer 1

设置StatusBar1.Panels[0]、StatusBar1.Panels[1]的Style属性为psOwnerDraw
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    progressbar:TProgressBar;
    prect:TRect;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
  var ico:TIcon;
begin
    if Panel.Index=0 then
    begin
    ico:=TIcon.Create;
    ico.Handle:=Application.Icon.Handle;
    StatusBar.Canvas.Draw(Rect.Left,Rect.Top,ico);
    ico.Free;
    end;
    prect:=rect;
end;procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   progressbar:=TProgressBar.Create(self);
   progressbar.Width:=StatusBar1.Panels[1].Width;
   progressbar.Height:=StatusBar1.Height;
   progressbar.Left:=prect.Left;
   progressbar.Top:=prect.Top;
   progressbar.Parent:=StatusBar1;
   progressbar.Visible:=true;
   for i:=1 to 100 do
   begin
      sleep(10);
      progressbar.Position:=progressbar.Position+1;
   end;
end;end.

Answer 2

教你个方法，在form上放个panel，然后将align属性设为albottem，然后你可以在上面放状态条、图片、进度条啦

Answer 3

hkbarton(宁静至远||淡泊明志) 说的对。相信他吧。

Answer 4

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
  var ico:TIcon;
begin
    if Panel.Index=0 then
    begin
    ico:=TIcon.Create;
    ico.LoadFromFile('图片路径');
    StatusBar.Canvas.Draw(Rect.Left,Rect.Top,ico);
    ico.Free;
    end;
    prect:=rect;
end;