即当我放下图标时，弹出对话框，“这是一个文件C:\a.txt”或“这是碰盘A:\”？

1，我们bitbtn时，主要是用来换图片，没想到点击时会产生立体效果，刚好这一点影响了我程序的美观，请问如果不使之产生立体效果， 2，另外，当鼠标移过按扭时可不可以换图片，这个函数应该怎么写！我只把点击的搞出来了，移动的写了后好象有点问题，不能执行！

如何删除ini文件中的所有内容？（最好有语句）

单击stop，总是报内存冲突错误 单元A： procedure TMyThread.Execute; var I:Integer; begin I:=0; while not terminated do begin Form1.Memo1.Lines.Add(IntToStr(I)); sleep(100); I:=I+1; end; end; 单元B（窗体）： procedure TForm1.Button1Click(Sender: TObject); var myt:TMyThread; begin if Button1.caption=v`/`vstartv...

我想做一个类似金山词霸那样的索引，比如在 输入框输入一个 a 则相关的 项目会列出来。。。请高手解答

帖子链接： http://community.csdn.net/Expert/topic/4247/4247773.xml?temp=.4497949

是用 if not(edit.text in (v`/`v0v`/`v..v`/`v9v`/`v)) then 吗？ 上面的不行，请问有什么方法？

excel中可以将选定的单元格中的文字或图片对象复制到剪贴板中，然后用于粘贴（就是ctrl-c、ctrl-v操作），同样在f1book提供的例子应用程序中也可以，可为什么不的应用程序加载了F1BOOK控件后就不可以了？

谁知道哪里有Delphi下深入Windows核心编程 一书光盘下载

我用delphi+短信控件+西门子短信猫做应用程序，发现当A猫在连续发送短信的同时，如果向A猫发短信，则很久(今天早上看了一下，一个小时后)A猫才会收到信息。后来又试了一下，还是收不到 我想请问，是不是猫在发短信的同时，如果别人向它发信息，这个信息要很久才能到达，如果是这样，该怎么解决呢？

代码如下: procedure TForm1.Button1Click(Sender:TObject); var newfrm:TForm; Media:TMediaPlayer; begin newfrm:=TForm.Create(nil); newfrm.Parent:=nil; Media:=TMediaPlayer.Create(newfrm); Media.Parent:=newfrm; Media.Display:=newfrm; Media.FileName:=v`/`vc:\1.mpgv`/`v; Media.Open; Media....

请教如何实现将程序最小化到系统托盘中？程序最小化，只在系统托盘中停留。

两个DLL（假定为DLL1,DLL2）中都使用了Raize控件 总控调用这两个DLL正常,假定调用时先调用DLL1，然后调用DLL2 释放时如果先释放DLL2再释放DLL1，那么一切正常。相反如果先释放DLL1再释放DLL2， 就会报出下面这个错误： Project projectname raised too many consecutive exceptions: application defined exception (code xxxx) at xxxx. Process stopped. Use Step or Run to continue. 请问：这是为什么啊，

如题

在cxGrid的cxGrid1DBTableView1的指定字段中，如何加入一个像DBGrid的表格浏览控件？ 就是在DBGrid中可以浏览指定字段的所有记录和它的明细，并且可以进行选择！ 请高手指教！谢谢！！！

原帖连接: http://community.csdn.net/Expert/topic/4247/4247773.xml?temp=.2504084

ehlib实现excel中冻结的功能怎么设置?即可以固定几行不滚动，象Excel中的冻结窗体一样！是要在哪里设置呢?

尤其喜欢word2003 Menu和ComboBox的界面风格

Form1 里有个 Panel1, Button1 .请教,如何实现以下功能:? 1、点击BUTTON1调用一个外部程序，如notepad.exe； 2、使得notepad.exe的Parent := panel1.handel ，也就是使得 notepad.exe 运行在 Pancel1 里面； 3、notepad.exe 最大化后，尺寸为Pancel1 的尺寸。 这三点如何实现？

本来一个编译后25k的程序，加了个Variant的变量后，编译完变成73k,太离谱了吧？！！！ 用CreateOleObject一定要用Variant吗？有懂的朋友来指点下，谢谢

我用Rave5制作报表，用RAVE模拟显示正常，可程序调用为何数据就显示为“invalid” My_Select := 'SELECT jinfeidaihao as JFDH, sbgm_time as GMRQ, sb_name as SMMC, xinhao as SBXH, guige as SBGG,count(*) as SHULIANG ,' + ' sum(danjia) as HJ FROM 设备表 ' + ' where zhuxiao_time is null and sbgm_time betwe...

Delphi

QQ：695383411 注明是软件开发

请我我的这个程序:var a,b:Cardinal; begin a := gettickcount; ExeZhuanHua(); b := gettickcount - a; //执行时间 showmessage(inttostr(b));//这个是毫秒值,我想转化为秒?请问该如何??谢谢

如： ....:=A4; ....:=zdy(自定义); 谢谢！

報表裡 怎麼不能用鼠標滾輪實現下下移動呢... --有什麼法子呢？

我设置了一个adodataset1 : select ReqMode,count(ReqMode)from f_customer where CreatDate>=cast(:date1 as datetime) and CreatDate<=cast(:date2 as datetime) group by ReqMode 然后DBchart中选Dateset的时候,选择adodataset1 ,lable和pie下拉表都只有一个COLUMN1 为什么ReaMode给没了..???

在delphi里用什么实现网吧管理软件啊

RTF的内容超过1面怎样打印？

怎么才能缩住Dbgrid的第一列第二列不让滚动, 如table1中的有A1,A2,A3...............AN..我想锁住A1,A2,,而让其他列进行滚动显示?

1.stringGrid与Dbgrid相比较有哪些优势?据说超市受银的哪个界面一定要用stringGrid吗? 2.如何锁定Dbgrid的第2,3列,,在显示很多字段时不让其滚动?

问题一: 我用DBGridEh1来显示数据库的记录,但是当要显示40多个字段的内容且记录数较多时(4000多条),,速度太慢 (慢的惊人大约是2分钟),,,如何提速? 问题二: 我是用Adoquery1.sql.add(v`/`vselect * from table1v`/`v)的方法来让Dbgrid显示数据库记录的. 除此以外还有什么方法来让Dbgrid显示数据库记录? 问题三: 如何实现分页显示?

问题一: 我用DBGridEh1来显示数据库的记录,但是当要显示40多个字段的内容且记录数较多时(4000多条),,速度太慢 (慢的惊人大约是2分钟),,,如何提速? 问题二: 我是用Adoquery1.sql.add(v`/`vselect * from table1v`/`v)的方法来让Dbgrid显示数据库记录的. 除此以外还有什么方法来让前台的Dbgrid显示数据库记录? 问题三: 如何实现分页显示?

1.stringGrid与Dbgrid相比较有哪些优势?据说超市受银的哪个界面一定要用stringGrid吗? 能说说数据库怎么能在stringGrid进行显示吗? 2.如何锁定Dbgrid的第2,3列,,在显示很多字段时不让其滚动?

我需要取得一个路径下，如c:\docum\batc\abc.txt中的abc.txt名称？在Delphi中如何可以取得？

就一个form窗体的应用程序，怎么在运行时打开一个网页？

同上

在TCustomGrid中protected区有个虚方法DrawCell，但在Paint方法中也有个DrawCell过程函数，这不会有冲突吗？

如何用sendmessage发送Ctrl＋C消息？ 我用这个不起作用Sendmessage（handle，WM_COPY,0,0）； Ctrl＋C我就不会使用这个函数了，应该用WM_KeyDown吧？但是后面两个参数不知道如何写了？

如题

//取图片 procedure TForm1.BitBtn1Click(Sender: TObject); var mm:Variant; MyStream,MyStream1:TMemoryStream; MyJPG:TjpegImage; begin with ADOQuery1 do begin close; SQL.Text := v`/`vselect * from test where ID=1v`/`v; Open; if not eof then begin MyStream := TMemoryStr...

我用打开 fastreport 的demo 运行任何一个例子，都出现 [Fatal Error] fs_isysrtti.pas(20): File not found: v`/`vfs_iconst.dcuv`/`v 高手给指点！！

说做过这方面的工作啊 晕乎乎的 如果有源代码最好了。

我写了一个过程 procedure OpenDataSet(var DataSet : TDataSet; ADOConnection : TADOConnection; TableName :string) 在程序中使用的DataSet主要是ADOTable和ADOQuery两种 我为了可以是这两种控件都能使用，因此我在声明的过程中使用了DataSet 但是在程序中调用该过程的时候， 例如： OpenDataSet(ADOTable， ADOConnection1，‘jbsj‘)； 然后系统提示：[Error] zjgl_frm.pas(201): Types of actual and

直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写？

Delphi直接读文本文件然后逐行读取数据的程序怎么写？急急急！

做一个编辑器,可以从数据库BLOB字段中载入HTML格式的文档，并且编辑和保存HTML格式到BLOB字段

如题：

请问 如果改变BUTTON控件的颜色，或者有其它的第三方控件，麻烦告诉一下具体地址。 小弟是个菜鸟，还有很多问题想请教高手，很急，希望能直接联系。我的QQ：15695430

不好意思，好弱智的问题啊。。刚刚学，谢谢帮助。分不多，只有10