我写了一段代码
是实现循环点击网页某一点的问题
可是实现的时候 第一次点击正常 第二次以后的点击就点击实现不了了
放出代码 求高手 大虾 帮助下
要循环点击
====
procedure TForm1.FormCreate(Sender: TObject);
begin
//timer1.Enabled:=false;
end;
procedu ......
想实现按下按钮不松，数字累加怎么实现的？类似这样的。
var
i:integer;
begin
i:=i+1;
label1.caption:=inttostr(i);
end;
试了一下，mousedown也不行啊。
vb可以。有何办法实现没有。
while true do
begin
i:=i+1;
label1.caption:=inttostr(i);
end;
......
在Delphi中如何声明这个C＋＋中的函数，是一个DLL中引入的
unsigned char _stdcall ConnetDrv( unsigned char DrvSnr, unsigned char DrvType, unsigned char *sRt, unsigned char TCP, unsigned int *dNum, unsigned char *dVAR, unsigned char *dSType, unsigned int tOver);
谢谢！！
function Conne ......
研发类：
• 系统架构师 1名
• 职位要求：
1、Delphi 4年以上开发经验、 同时熟悉C++等开发语言和基于Windows的编程；
2、精通面向对象的编程方式；
3、熟练掌握UML及相关工具；
4、有带领团队开发经验；
5、做过服务端程序编程或相关经验优先
• DELPHI高级软件� ......
从TPanel继承了个类TPanelA,并动态在TPanelA中添加若干个TImage对象和TLabel对象，我想把有关对Image和Label对象的鼠标事件（Click,MouseDown,MouseUp,MouseMove）交给TPanelA的相应事件来处理，请问该如何实现？
简单说就是容器如何处理里面对象的鼠标事件？
沙发
End_rbody_59797708//-->
该回复于2009-09 ......
我将别人以前写的一个delphi转换为dll，给vc调用。
导出函数定义如下：
Delphi(Pascal) code:
function CreateDoubleLayerPDF (sPath:PChar):integer; stdcall;
begin
Application.Initialize;
Application.CreateForm(Tfrm_main, frm_main);
frm_main.SetPath(sPath);
Application.Run;
resul ......
最新文章 : delphi