各位大能，本人想做个画图之类的功能，有画笔可以调大小，有橡皮搽；只求思路！请问：1、橡皮擦功能如何实现啊； 2、如何记录笔迹；说明：因为我所使用的VCL，如果每次窗体重绘都会清除掉所画的笔迹；谢谢大家！

这几天在看买的书里面涉及到一个“动态创建窗口”的例程不过按照书上的步骤来操作就是不可以。不知道动态创建窗口需要注意什么另外如果不用动态创建窗口就在编程环境下，利用菜单来创建窗口，需要靠什么命令来调用显示。谢谢蛋帖望回复

在运行程序时说在关键字Load附近有语法错误，我的代码是 SQLStr:='select*fromLoadwhereid='''+Edit1.Text+'''andpwd='''+Edit2.Text+''''; DM1.ADOQuery1.Close; DM1.ADOQuery1.SQL.Clear; dm1.ADOQuery

我有2版程序分别用不同的APPID。我在新程序里定义的ShouldSkipPage，然后安装程序完成后再运行这个程序就会，跳过wpWelcome页面满足了程序要求。现在的问题是：我先装以前老版本的程序，然后再运行这个新程序，就不会跳过wpWelcome页面。我要怎样做2个版本都会跳过wpWelcome页面？functionShouldSkipPage(PageID:Integer):Bo

SQL:='selectsum(cons_money)frombs_cons_infowherecons_state_flag=''19''andcons_acco_id='''+m+''; ExecuteSQL(qry1,SQL); w:=qry1.fieldbyname(1).asfloat;提示的错误是[Error]Unit1.pa

在获得form的Handle时，出现如下错误：Accessviolationataddress00456F5Finmodule，这个form的formStyle是：fsMDIChild。请问有人知道是什么原因吗？

var  OldTime,ChangeTimeA,ChangeTimeB,NowTime:TSystemTime; begin //获取到系统时间到vOldTime结构去 GetLocalTime(OldTime); //现在如何把这个OldTime结构的时间加上100天得到一个新的结构赋值到ChangeTi

请大家帮忙看看下面代码添加第一次的时候插入2行，在点击一次就1行，怎么把他弄成每次点击都是1行啊procedureTMain.N27Click(Sender:TObject);var  i,frow:integer;begin frow:=stringgrid1.row;//记录当前选定行的位置 stringgrid1.rowcoun

用fastreport作了一个打印的功能，现在的问题是：我浏览的时候有1000张，我点击打印，那么我怎么在在数据库的一个表里添加一条记录如：sys001long1000时间 可以的frxreport里的一个事件progress写，可以知道你打印了多少张,难度在于：由于时间精确到2011-08-0112：12：12  1、这样你不能对sys001l

有数组A，A[0..99]有100个数（或者更多），想求出这样几对数，满足y1-y2在某个阈值内，x1-x2在某个阈值内，x1,x2表示第几个，y1,y2表示x1,x2对应的值，不知道用什么方法能快速实现，请各位大侠帮帮忙啊在线等