- 博客(10)
- 资源 (2)
- 收藏
- 关注
翻译 DELPHI / Determine The Path To The Users Application Data
function LocalAppDataPath : string;const SHGFP_TYPE_CURRENT = 0; var path: array [0..MAXPATH] of char;begin SHGetFolderPath(0,CSIDL_LOCAL_APPDATA,0,SHGFP_TYPE_CURRENT,@path[0]); R
2015-01-17 04:49:03
355
翻译 Delphi / Mdi
procedure TfrMain.LoadPictureClick(Sender: TObject);beginif ActiveMDIChild TfrChild(ActiveMDIChild).LoadPicture;end; uses ExtDlgs;...procedure TfrChild.LoadPicture;var OpenPicDlg :
2015-01-17 00:13:52
285
转载 DELPHI / Mdi
procedure TfrMain.LoadPictureClick(Sender: TObject);beginif ActiveMDIChild TfrChild(ActiveMDIChild).LoadPicture;end; uses ExtDlgs;...procedure TfrChild.LoadPicture;var OpenPicDlg :
2015-01-17 00:09:13
279
转载 OLMAZMI YAW 10 PUAN
procedure DateComplete (var StrLikeDate:string; const NowIfError:boolean = True);var DateStr : string; Year, Month, Day : Word; i, SepCount : Integer;begin DateStr:
2015-01-16 23:40:41
306
翻译 DENEMEMİZ
procedure DateComplete (var StrLikeDate:string; const NowIfError:boolean = True);var DateStr : string; Year, Month, Day : Word; i, SepCount : Integer;begin DateStr:
2015-01-16 23:40:05
733
转载 DATE COMPLATE
procedure DateComplete (var StrLikeDate:string; const NowIfError:boolean = True);var DateStr : string; Year, Month, Day : Word; i, SepCount : Integer;begin DateStr:
2015-01-16 23:38:34
485
转载 5 puan lazım tamam
unit FlatGraphics; {***************************************************************}{ FlatStyle Graphics Unit }{ Copyright ©1999 Lloyd Kinsella.
2015-01-16 23:33:06
1209
翻译 asdsaa ds sdsd ds
procedure TAHMAssociationsDlg.Setup(Associations : String;HelpID:LongInt);var FxA,FxAssociations : String; CellI : Integer;begin Width:=365; Height:=255; Position:=poScreenCenter;
2015-01-16 23:26:07
434
转载 DELPHI / Open Source Ahmtappmanager-Devam
procedure TAHMAssociationsDlg.Setup(Associations : String;HelpID:LongInt);var FxA,FxAssociations : String; CellI : Integer;begin Width:=365; Height:=255; Position:=poScreenCenter;
2015-01-16 23:11:42
307
转载 DELPHI / Open Source Flatgraphics
unit FlatGraphics; {***************************************************************}{ FlatStyle Graphics Unit }{ Copyright ©1999 Lloyd Kinsella.
2015-01-16 22:57:13
323
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人