usesComObj; procedureCrnPinAppToWin7Taskbar(strPath,strApp:string); var vShell,vFolder,vFolderItem,vItemVerbs:Variant; vPath,vApp:Variant; i:Integer; str,strPinName:String; begin vShell:=CreateOleObject('Shell.Application'); vPath:=strPath;...
在项目的工程文件中勾选主题，设置缺省主题为Windows 部分代码如下： uses Vcl.Themes; procedureTfrmMain.Button1Click(Sender:TObject); begin TStyleManager.SetStyle(ComboBox1.Text); end; procedureTfrmMain.FormCreate(Se...
TMemo中的两个方法： TMemo.Lines.Add(stringxxx);意思是向TMemo中增加字符串stringxxx； TMemo.Lines.Text:=stringxxx，意思是清空了Memo1，然后写入stringxxx。 TMemo中的属性： TMemo的属性中没有Scrollbar这个...
以下代码能监控到以下几个事件： FinishedLaunching BecameActive WillBecomeInactive EnteredBackground WillBecomeForeground WillTerminate LowMemory TimeChange OpenURL unitUnit11; interface uses System.SysUtils,System.Types,System...
delphi XE5自带皮肤的，不需要用第3方了。在Project-Option下，如图所示：...
一、手机快捷方式显示中文名称 project-options-VersionInfo-label(改成需要显示的中文名即可），但是需要安装到安卓手机才可以（IOS的没有试过） 二、使用Sqllite存储中文 SqlLite中，字段类型...
procedure TForm1.Button1Click(Sender: TObject); var Dir, FileTitle, FileExt: string; s,s1: string; j:Integer; begin Dir := 'C:\'; FileTitle := '新建 文本文档'; FileExt := '.txt'; s1:=Dir+FileTitle+FileExt; j:=2; if FileExists(s1) then...
在之前，我们知道有三种方法： ExtractFilePath(ParamStr(0)) ExtractFilePath(Application.ExeName) GetCurrentDir+'\' 在firemonkey中，Windows模式下第一种、第三种还有效： ExtractFilePath(ParamStr(0)) GetCurrentDir+'...
Uses FMX.Platform.Android; ... begin {退出程序} MainActivity.finish; end;...
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,DBXJSON; type TForm1 = class(TForm) Button1: TButton; procedure B...