Technology Learning

导航

2010年3月23日

五彩下拉框

摘要： 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) 编辑