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

net_morning 2003-09-11 03:49:23
谢谢
...全文
59 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
struggle813 2003-09-17
  • 打赏
  • 举报
回复
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;
net_morning 2003-09-15
  • 打赏
  • 举报
回复
状态条的一栏里放个图片呀
whitetiger8 2003-09-11
  • 打赏
  • 举报
回复
hkbarton(宁静至远||淡泊明志) 说的对。相信他吧。
abcccccc 2003-09-11
  • 打赏
  • 举报
回复
还是后来的方法简单好用呀!
hkbarton 2003-09-11
  • 打赏
  • 举报
回复
教你个方法,在form上放个panel,然后将align属性设为albottem,然后你可以在上面放状态条、图片、进度条啦
struggle813 2003-09-11
  • 打赏
  • 举报
回复
设置StatusBar1.Panels[0]、StatusBar1.Panels[1]的Style属性为psOwnerDraw
unit Unit1;

interface

uses
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.

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧