Technology Learning

导航

2010年3月24日

显示编辑框密码

摘要： 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 浔阳渔夫 阅读(186) 评论(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 浔阳渔夫 阅读(158) 评论(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 浔阳渔夫 阅读(128) 评论(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 浔阳渔夫 阅读(277) 评论(0) 推荐(0)

修改窗口显示模式

摘要： 在Object Inspector 中将窗口的BorderStyle值设为bsDialog窗口就不可以最大化最小化了... 阅读全文

posted @ 2010-03-24 21:28 浔阳渔夫 阅读(245) 评论(0) 推荐(0)

弹出菜单创建

摘要： procedure TForm1.Button1Click(Sender: TObject);varMainMenu:TMainMenu;MenuItem:TMenuItem;begin//创建主菜单对象,并设置主窗口的菜单为MainMenu对象MainMenu:=TMainMenu.Create(Self);Self.Menu:=MainMenu;//创建MainMenu主菜单的第一级菜单对象 ... 阅读全文

posted @ 2010-03-24 17:29 浔阳渔夫 阅读(353) 评论(1) 推荐(0)