![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
zwk_9
希望能和更多的csdn人一起学习,共同提高。
展开
-
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 · 3201 阅读 · 0 评论 -
delphi常见错误—cannot make a visible window modal
<br />使用showmodal函数时时出现如下错误:<br /><br /> <br /> <br />(1)首先在project的options中,将子窗口改为不自动创建,即“Available forms”。<br />(2)根据showModal函数定义可知,如果窗体是MDIChild的话,是不可以ShowModal的,而且 ShowModal时,要求Visiable=False,假使你设置为Visiable=True就会产生错误,而子窗体设置为MDIChild时Visiable自动设置为True原创 2010-11-12 17:07:00 · 10064 阅读 · 0 评论 -
Delphi连接mysql数据库的三种方式
(1)通过ODBC+ADO的方式连: with ADOCon1 do begin Close; ConnectionString:=( DRIVER={MySQL ODBC 5.1 Driver}; + SERVER=192.168.1.107; +原创 2009-08-10 16:45:00 · 12142 阅读 · 0 评论 -
Delphi控制网络端口
uses ComObj; implementation Const NET_FW_IP_PROTOCOL_UDP = 17; Const NET_FW_IP_PROTOCOL_TCP = 6; Const NET_FW_SCOPE_ALL = 0; Const NET_FW_SCOPE_LOCAL_SUBNET = 1;procedure TForm1.Button1C原创 2009-08-10 16:41:00 · 1123 阅读 · 0 评论 -
delphi控件联动
问题描述:新建delphi工程,在Form1中放置Panel1控件,并在Panel1中并排放置Label1和Edit1控件。要求:1. 拖动鼠标时,Label1和Edit1会随鼠标而动,但其相对位置不变;2. Label1和Edit1始终在Panel1的边界内移动。代码:var G_Can_Move: boolean; //用于控制只有当鼠标按下时才能移动 G_X, G_Y: int原创 2008-10-14 13:52:00 · 918 阅读 · 0 评论 -
设置DbgridEh选择多行,并操作选中行
1. 将DbgridEh的Option里面的dgRowSelect和dgMultiSelect设为true,即可按住ctrl选择多行,但是这样的话不允许修改单元格 2. 如果要在“允许选择多行”和“允许修改单元格”两种状态之间切换,可使用如下代码: //允许选择多行但不允许修改单元格 DBGridDetail.Options :=[gTitles,dgIndicator,dgColumn原创 2008-10-29 15:25:00 · 11995 阅读 · 1 评论 -
如何使按钮的CAPTION竖排
简单两句,搞定! BtnClearFormula.Caption:= 清 #13空; setwindowlong(self.BtnClearFormula.Handle, gwl_style, getwindowlong(self.BtnClearFormula.Handle,gwl_style) or bs_multiline);原创 2008-10-21 12:26:00 · 1132 阅读 · 0 评论 -
在Delphi的DLL中使用FastReport要处理的几个问题
在dll中使用FastReport会遇到以下内个问题:1.调用时变量出错,最普通的一个变量注入也是一样2.出现Cannot assign a TFieldList to a TStringList的错误3.Invalid pointer operation的错误,在函数中返回WideString引起的以下是解决办法:1.不要在DLL中直接引用FastReport的单元文件,最好用一个接口类来实现转载 2008-09-05 10:37:00 · 1261 阅读 · 0 评论 -
DBGridEh点击Title排序
不用自己写代码!DBGrideh实现自动排序:1.在optioneh中设置:AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置,与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性Titl转载 2008-07-14 16:36:00 · 723 阅读 · 0 评论 -
用回车代替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 · 539 阅读 · 0 评论 -
欢迎界面的制作
(1)在欢迎界面(welcome单元)中添加时钟控件Timer1,设置恰当的interval值,并在其OnTimer事件中添加如下代码:procedure TfrmWelcome.Timer1Timer(Sender: TObject);begin frmWelcome.Close; Timer1.Enabled:= false; end; (2)在工程文件中原创 2008-07-11 11:03:00 · 873 阅读 · 0 评论 -
delphi7 手动安装 indy10.2.3
<br /><br />1.windows的path路径中增加D7的路径<br />在启用delphi7时,要能加载dclIndyCore70.bpl这个文件<br />如果是自动安装,这个文件会拷到C:/windows/system32/dclIndyCore70.bpl,所以不用改path<br />2.delphi7菜单中Library路径中<br />添加indy10/LIB路径下的System、Core、Protocols下的三个目录<br />添加indey10/D7 因为这个目录下有bpl和d转载 2011-05-12 13:51:00 · 5763 阅读 · 0 评论