谢谢
解决方案 »
- (一)11月19号结婚, 人生就只有一次.狂放520分兄弟们抢分啦, 月底接贴.
- 高手请进:用wise打包,程序运行中,如何阻止卸载此程序?不胜感激~~
- 设置后如何保存设置的属性
- 散分200: 1年后,我再次来到CSDN->DELPHI
- 如何用键盘操作TDBNavigator控件,进行导航和添加、删除和编辑?
- 可以告书我为什么我回了人家问题,他还给了分,可我就是没收到呢,就是说我的分数仍然没多!
- 打印票据。
- delphi6 数据库开发
- 先谢了!11
- 请问大家*.dll文件怎么做??
- 看不懂这个错误大家看一看,Project 123.exe raised exception class EAccessViolation with message 'Access violation at address 00404
- 关于bitblt函数的问题
我还想问几个问题
//如果不包含则返回False,否则,返回True
function TfrmJControls.HasProperty(MyComponent: TComponent;
const sProperty: String): Boolean;
var
piPropInfo : PPropInfo;
begin
Result := False; if MyComponent = nil then
Exit; if Length(Trim(sProperty)) = 0 then
Exit;
piPropInfo := GetPropInfo(MyComponent, sProperty, [tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkDynArray]); if piPropInfo = nil then
Exit
else
Result := True;
end;