技术文章 > BCB编程经验几则

BCB编程经验几则

2017-12-12 04:43

文档管理软件,文档管理系统,知识管理系统,档案管理系统的技术资料:

问:怎么实现TRichEdit的自动滚行?象某些阅读器那样的功能。
答:用ScrollWindowEx或者ScrollWindowEx就可以了。
ScrollWindow(RichEdit1- >Handle, 0, -1, NULL, NULL); //向下滚1个像素
ScrollWindow(RichEdit1- >Handle, 0, 1, NULL, NULL); //向上滚1个像素

问:在下最近在自己编组件,按照BCB的帮助提示做好了图标,也按照它的提示建立了联系,
但就是看不到自己的图标,只有默认的!!!
答:用IMAGE EDITOR编辑DCR文件,记信图标名称必须和组件名称相同,我说的是图标名称,不是文件名称。生成DCU文件后,用BRCC32.EXE对该DCR文件进行编译生成DCU文件,将DCU文件加入到BPK包中,编译、安装包应可以看到你自制组件的包了。

问:物理删除记录,用ADO压缩Access2000库的方法?
答:用ADO压缩Access2000库
#include "utilcls.h"
void CompactDatabase(String f1,String psw1, String f2,String psw2)
{
String Provider1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
+ f1 + ";Jet OLEDB:Database Password=" + psw1;
String Provider2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
+ f2 + ";Jet OLEDB:Database Password=" + psw2;
Variant Adoobj=Variant::CreateObject("JRO.JetEngine");
Adoobj.OleProcedure("CompactDatabase",Provider1,Provider2);
AdoObj.Clear();//释放ADO对象
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String f1="yhecdagl1.mdb"; // 源库1
String psw1="yhecdagl"; // 密码1
String f2="yhecdagl2.mdb"; // 新目的库2
String psw2="yhecdagl2"; // 新密码2
String dir=ExtractFilePath(Application->ExeName);
if(FileExists(f2))
DeleteFile(f2);
CompactDatabase(dir+f1,psw1,dir+f2,psw2);
ShowMessage("Finished");
}

问:能否通过按钮使用SQL创建一个名为a.db的文件?
答:这儿一个db文件就是一个数据表,所以可以通过创建表的方式来创建。
通过SQL语句就可以了,通过SQL语句我们可以创建不仅仅是表,还有别的很多,如字段等
Query1->Close;
Query1->DatabaseName="c:\temp";
Query1->SQL->Text="create table a.db (field1 varchar(10),field2 varchar(10))";
Query1->ExecSQL;

问:TMediaPlayer如何用MediaPlayer1播放mp3?
设备类型指定了好几种怎么都不行?MediaPlayer1->DeviceType 为dtCdAudio,
dtDAT,dtOther,dtSeqencer,dtWaveAudio,dtAutoSelect都不行!;应怎么做才行?
答:
1.我来说说。MediaPlayer本身是高用windows提供的dll来工作的,但是由于bcb不是ms的,所以。。。在win98下的话,你可以查找到win.ini,在win.ini里修改东东就行了。
[mci extensions]
mp3=MPEGVideo
2.你可以用SndPlaySound函数来播放
char *tStream=new char...;
可以先用TFileStream把文件读到内存中,Read到tStream中
SndPlaySound(tStream,SND_MEMORY);

问:[TRichedit]:如何带格式存储Richedit内容到Access?
答:用AnsiString!!!!
具体方法如下,设保存RichEdit的字段为RichField:
TStringStream *pms=new TStringStream(NULL);
TStringList *StrList=new TStringList();
RichEditContent->Lines->SaveToStream(pms);
pms->Position = 0;
StrList->LoadFromStream(pms);
RichField->AsString=StrList->Text;

问:请问有什么办法使得子form一直留在最前面?
答:主要是重载Form的虚拟函数CreateParams, 改变TCreateParams的成员WndParent就可以了
class TForm2 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
protected:
virtual void __fastcall CreateParams(TCreateParams & Param);
public: // User declarations
__fastcall TForm2(TComponent* Owner);
};
void __fastcall TForm2::CreateParams(TCreateParams & Param)
{
//调用基类的函数
TForm::CreateParams(Param);
Param.ExStyle |= WS_EX_TOPMOST;
//这儿最关键的是只要Param.WndParent不是Application- >Handle就可以了,
//不一定非要用GetDesktopWindow(),用其它的窗口也可以。
Param.WndParent = GetDesktopWindow();
}

问:[TTabSheet]怎么改变TabSheet标题部分的小矩形颜色。
小弟这样做的:
//TabSheet1- >PageControl = PageControl1;
TabSheet1- >Brush- >Color = clBlue;
上面的小矩形仍然为灰色。
PageControl1- >Brush- >Color = clBlue;
整个pagecontrol都变蓝色了,就是那个小矩形还灰色。
答:OwnDraw=true;
void __fastcall TForm1::TabControl1DrawTab(TCustomTabControl *Control,
int TabIndex, const TRect &Rect, bool Active)
{
Control- >Canvas- >Brush- >Color=clRed;
Control- >Canvas- >Rectangle(Rect);
}
-----------------------------------------
PageControl也差不多,如果要不同的TabSheet有不同的颜色,可以判断TabIndex
void __fastcall TForm1::PageControl1DrawTab(TCustomTabControl *Control,
int TabIndex, const TRect &Rect, bool Active)
{
Control- >Canvas- >Brush- >Color=clGreen;
Control- >Canvas- >Pen- >Color=clGreen;
Control- >Canvas- >Rectangle(Rect);
}

问:我想写一个互斥量,但是怕和系统中的互斥量同名,有不有办法便利系统中的互斥量?
答:看CreateMutex 的帮助,如果你创建时返回ERROR_ALREADY_EXISTS,表示已经存在了,你就再换一个名字创建啊。