摘要:
描述:显示一个目录的对话框(属于Delphi)function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;参数一:存放返回值。可设置当前选择目录,不设置则为程序运行目录。 参数二:[]:目录不可编辑,只能手动选择 [sdAllowCreate]: 目录可编辑,目录不存在不负责创建。 [asAkkiwCreate, sdPerformCreate]:目录可编辑, 目录不存在直接创建。 [asAkkiwCreate, sdPerformCreate, sdP. 阅读全文
摘要:
program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils;type TVoice = function(): String;function WithAmericanDoll(): String;begin Result := 'Oh yes, Oh, F M.';end;function WithJapanDoll(): String;begin Result := 'ah, a~ah, eku..eku..';end;function MkLove(voice: TVoice): St 阅读全文
摘要:
/* * Created by SharpDevelop. * User: Administrator * Date: 2013/10/23 * Time: 8:57 * author zibet */using System;using System.Net;using System.Windows.Forms;using System.Runtime.InteropServices;namespace SyncTime{ /// /// Description of MainForm. /// public partial class MainForm : Form { [Struc... 阅读全文
摘要:
Class TBoundlabel not foundwhen you put a labeledit into a panel of CategoryPanel then you'll found..no need to worry,step1,put the labeledit into a panelstep2,put the panel into the panel of CategoryPanel.About Image ComponentImage1.Picture.LoadFromFile(OpenDialog1.FileName);// this can only lo 阅读全文