- 博客(6)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 Delphi小技巧（六）——Des加密算法
unit DESCrypt;interfaceuses SysUtils;function EnCrypt(aStr: string; acKey: string ): string; //加密字符串-------------------------------function DeCrypt(aStr: string; acKey: string ): string; //解密字符
2009-05-08 20:49:00
1250
原创 Delphi编程实用小技巧（五）——透明窗体
非常简单的方法呀！经典。。。 将form1的属性：Color,TransparentColorValue 的颜色设为相同的颜色，再将ransparentColor 设为true。在窗口上加入一个Lable，随意打上一标题即可，例如：hello!!.把form1的属性BorderStyle设为bsNone,运行结果如下：
2009-05-08 20:48:00
593
原创 Delphi编程实用小技巧（四）——控制Excel表格
首先，要在form中添加 Excelapplication1，excelworksheet1和 Excelworkbook1 三个控件。procedure TForm2.Button2Click(Sender: TObject);vartemp_worksheet:_worksheet;begin//连接ExcelExcelapplication1.Connect;Excelappl
2009-05-08 20:47:00
512
原创 Delphi编程实用小技巧（三）——经典listbox的拖拽
首先将listbox的属性：DrogMod 设置为dmAutomaticMultiselect 设置为 true代码：procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);vari:integer;str:string;beginfor i:= tlistbox(sourc
2009-05-08 20:46:00
770
原创 Delphi编程实用小技巧（二）——自动创建按钮和菜单项
创建按钮的代码：vara2:TButton; begin a2:=TButton.Create(self); //创建按钮 a2.Parent:=form1; // 按钮属于那个窗口 a2.Caption:=按钮1; a2.
2009-05-08 20:43:00
600
原创 Delphi编程实用小技巧（一）——listbox的拖拽
首先将listbox的属性：DrogMod 设置为dmAutomaticMultiselect 设置为 true代码：procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin a
2009-05-08 20:41:00
885
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人