知识小结(Delphi)
1) Error loading midas.dll 没有注册midas.dll 运行RegSver32.exe midas.dll
2)Result := GetProcAddress(FGDIPlusLibrary, PChar(ProcName));编译 出现这样的问题，应该是设置方面的问题，Project->Options->Complier->Hugestrings 钩上就ok了！
3) TCheckListBox有个itemEnable[Index] := False属性控制某一项不可改
4) 批量根据AText是否为空判断颜色
procedure TM4_FaultModifyForm.SetColor(ALabel: array of TLabel;
AText: array of string);
var
VIndex: Integer;
begin
for VIndex := Low(AText) to High(AText) do
if AText[VIndex] = '' then
ALabel[VIndex].Font.Color := clBlue
else
ALabel[VIndex].Font.Color := clWindowText;
end;
5) 界面网格修改记录后要重新定位到该条记录用dsQuery.DataSet.Locate('file_no', VFileNo, []);
6) Could not convert variant of type(Null) into type (string) 加VarToStr
7) 修改网格的DataController.Summary.Options.soSelectedRecords := True时竟然会出现这样的异常‘List index out of bounds(8)’
8) 新建或修改时间时，应该对控件cxDateEdit进行判断是否为空，不然默认传入'0000:0:0'值，查询出错
9) 当网格中需要一个字段或者几个字段输完后立即出来一个结果，则用字段中的Properties.OnValidate事件
10) 定义Vstr为string类型，则Vstr[1]可以取到该字符串中的第一个字符。类似Result如果为string型也可以。
11) 查看时 Memo 文本框要支持 Ctrl + A 全选（ if (Key = 65) and (Shift = [ssCtrl]) then
(Sender as TDBMemo).SelectAll;）,并且支持按ESC响应退出改属性WantReturns := False
新建时Memo 文本框支持ESC，在OnKeyPress事件中if Key = #27 then Close
12) 删除默认聚焦到取消上：Application.MessageBox('是否真的要删除记录?', '提示', MB_OKCANCEL + MB_DEFBUTTON2)
13) 如果弹出如：'LebutFormD7...'类似开发包样的错误，很有可能是开发包已经更新过，重新安装
14) 如果按Tab键不希望在某个控件显示焦点，且该控件没有Tabstop属性，则可以手写代码应该有此属性
15) "License is in invalid or has expired
M4_ServiceDefintions.dpk(2): Readerror on 'c:\program files\borland\delphi7\lib\System.dcu"
今天突然出现莫名奇妙的错误信息，但你出现此类问题时，很简单重新启动
相关文档：
有时需要使用透明控件用于捕获鼠标消息
1.调用Windows2000,xp新的API函数实现这一功能的过程。使用SetLayeredWindowAttributes
2.直接设置控件的alphablend,alphablendvalue，间接调用上述api.
3.使用TStaticText控件
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、ShortString
2008-10-17 14:57:17
//最常用的 string
var
str: string; {定义}
begin
str := '万一'; {赋值}
ShowMessage(IntToStr(Length(str))); {长度是: 4}
end;
//长字符串 AnsiString; 在当前版� ......
常用控件命名前缀
控件类名
前缀
TForm等窗体类
frm
TButton, TSpeedButton等所有的按钮类
btn
TCheckBox等所有的检查框
chk
TRadioButton单选按钮类
rdo
TListBox等所有的列表框类
lst
TPanel等所有的面板类
pnl
TLabel, TStaticText等所有用来显示的标签类
lbl
TE ......
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
今天开始学习元件编辑器，感觉比属性编辑器简单许多，但还是遇到了一些疑问。如果你能解答文中记录的问题，请告诉我答案，谢谢！
目 录
===============================================================================
⊙ TBaseComponentEdit ......
制作圆角矩形的窗体：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
如果不要窗体外框，则使用：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......
