- 博客(7)
- 资源 (22)
- 收藏
- 关注
转载 delphi控制Excel格式
设置EXCEL的单元格的格式为文本格式ColumnRange.Columns[1].numberformatlocal:=@; ExcelApplication1.ActiveSheet.Rows[1].numberformat:=@; ExcelApp.Cells[j,2].numberformatlocal:=@; excelworksheet1.Cells.Item
2008-07-18 08:42:00 4119
原创 delphi实现屏幕截图
(1)新建工程,设置主界面form1的BoardStyle为bsNone,FormStyle为fsStayOnTop,WindowState为wsMaximized。(2)在form1中放置Image1,设置其AutoSize为True。(3)在form1的OnCreate事件中截取全屏,并将截到的图片放置在image1中。procedure TForm1.FormCreate(Se
2008-07-18 07:27:00 8565 1
转载 DBGridEh点击Title排序
不用自己写代码!DBGrideh实现自动排序:1.在optioneh中设置:AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置,与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性Titl
2008-07-14 16:36:00 741
原创 用回车代替Tab键
(1)在界面的OnActive事件中,procedure TfrmTech_Material.FormActivate(Sender: TObject);begin self.KeyPreview:= true;end; (2)在界面的OnKeydown事件中,procedure TfrmTech_Material.FormKeyDown(Sender: TObjec
2008-07-11 11:15:00 547
原创 欢迎界面的制作
(1)在欢迎界面(welcome单元)中添加时钟控件Timer1,设置恰当的interval值,并在其OnTimer事件中添加如下代码:procedure TfrmWelcome.Timer1Timer(Sender: TObject);begin frmWelcome.Close; Timer1.Enabled:= false; end; (2)在工程文件中
2008-07-11 11:03:00 879
原创 DBGridEh按回车进入下一列
以下代码在delphi7.0地下调试通过,仅适合于DBGrid中的列与ADOQuery中的字段相互对应的情况 procedure TfrmPattern_Add.DBGridDetailKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);var i: Integer;begin case Key
2008-07-11 10:36:00 3222
原创 文件的压缩与解压缩
(1)压缩procedure CompressBitmap(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);var SourceStream: TCompressionStream; DestStream: TMemoryStream; Count: Integer
2008-07-11 09:28:00 563
虚拟端口三件套(Modbus Poll,Modbus Slave,Configure Virtual Serial Port )
2022-06-20
微软类库,获取汉字的拼音缩写
2010-05-24
delphi tips(2)
2007-09-25
delphi tips
2007-09-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人