显示编辑框密码
摘要：
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) 编辑
修改窗口显示模式
摘要：
在Object Inspector 中将窗口的BorderStyle值设为bsDialog窗口就不可以最大化最小化了... 阅读全文
posted @ 2010-03-24 21:28 浔阳渔夫 阅读(232) 评论(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 浔阳渔夫 阅读(341) 评论(1) 推荐(0) 编辑
五彩下拉框
摘要：
unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm4 = class(TForm) ComboBox1: TComboBox; procedure ComboBox1DrawItem(Contr... 阅读全文
posted @ 2010-03-23 23:31 浔阳渔夫 阅读(169) 评论(0) 推荐(0) 编辑
五彩菜单
摘要：
unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm4 = class(TForm) MainMenu1: TMainMenu; qwn: TMenuItem; S1: TMenuItem; A1: T... 阅读全文
posted @ 2010-03-23 23:19 浔阳渔夫 阅读(263) 评论(0) 推荐(0) 编辑
生成任务栏图标
摘要：
unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls,ExtCtrls,StdCtrls,ToolWin,ShellApi,Menus, jpeg; //define the consts const WM_MY_Not... 阅读全文
posted @ 2010-03-23 22:39 浔阳渔夫 阅读(333) 评论(1) 推荐(0) 编辑
Delphi工程运行的启动和退出画面
摘要：
//工程文件program Project1;uses Windows, Forms, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3};//Unit3 in 'Unit3.pas' {Form3};{$R *.res}begin Application.Initialize;//here... Form3:=TForm3.Cre... 阅读全文
posted @ 2010-03-23 21:36 浔阳渔夫 阅读(486) 评论(0) 推荐(0) 编辑