显示编辑框密码
摘要：
if ToolButton1.Down then begin Edit1.Cursor:=crArrow; Edit1.Hint:=Edit1.Text; end else begin Edit1.Cursor:=crDefault; Edit1.Hint:=''; end; 阅读全文
posted @ 2010-03-24 23:37 浔阳渔夫 阅读(180) 评论(0) 推荐(0) 编辑
状态条中滚动文字
摘要：
with Statusbar1.Canvas do begin FillRect(DrawRect); Font.Color:=clBlack; w:=TextWidth('welcom to the Delphi interface...'); pen.Style:=psClear; Rectangle(DrawRect.Left,DrawRect.Top,DrawRect.Right,Draw... 阅读全文
posted @ 2010-03-24 22:54 浔阳渔夫 阅读(149) 评论(0) 推荐(0) 编辑
状态条中加入图像
摘要：
Image1.Parent:=Statusbar1;Image1.Picture.Bitmap.LoadFromFile('book.bmp');Image1.Left:=DrawRect.Left+7;Image1.Top:=DrawRect.Top;Image1.Height:=DrawRect.Bottom-DrawRect.Top;Image1.Width:=DrawRect.Right-... 阅读全文
posted @ 2010-03-24 22:39 浔阳渔夫 阅读(121) 评论(0) 推荐(0) 编辑
状态条中添加进度条
摘要：
unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Mask, ComCtrls;type TForm6 = class(TForm) StatusBar1: TStatusBar; MaskE... 阅读全文
posted @ 2010-03-24 22:24 浔阳渔夫 阅读(271) 评论(0) 推荐(0) 编辑