【Delphi XE4】常用的Hot key

畫面

  • F12 切換程式碼編輯及表單設計

程式碼縮排

  • 內縮(向右) Ctrl + Shift + I
  • 外張(向左) Ctrl + Shift + U
  • 自動編排   Ctrl + D

書籤 bookmark

  • Ctrl + Shift + 0-9(數字)  註:0與1可以用Ctrl + K + 0、1代替

Sync Edit Mode

  • Ctrl + Shift + J

Refactor

  • Ctrl + Shift + M

To-Do List

  • Ctrl + Shift + T

Remark 註解

  • Ctrl + /

Class Completion 類別完成

  • Ctrl + Shift + C

Declare Field 變數宣告

  • Ctrl + Shift + D

參數提示

  • Ctrl + Shift + Space

Code Templates

  • Ctrl + J

【Delphi XE】清空歡迎畫面中的開啟過檔案(Clear Recently Opened Projects)

 

 

在Delphi的IDE中,會記住曾開啟的專案及文件,不過日子久了之後,可能專案不見了,或是種種問題,會想要清空它。今天再來教大家如何清空囉!

螢幕快照 2013-06-02 下午3.20.47

 

一、開啟 File → Reopen →Properties

螢幕快照 2013-06-02 下午3.21.12

 

二、會出現圖中的 Reopen Menu Properties視窗,在這邊可以設定要記住幾個專案(Number of Projects)或是文件(Number of Files),在下面的Reopen items就是列表了,它還設計了幾個選項

Delete Nonexistent Files 刪除不存在的

Delete 刪除單一

Clear 全部清空

螢幕快照 2013-06-02 下午3.21.35

 

三、依照您想刪除的,清空後看起來就清爽多了。

螢幕快照 2013-06-02 下午3.22.24

RAD PAServer XE4 設定預設密碼

在前一篇XE3設置PAServer的文章中,有教各位如何設定預設的密碼!不過XE4的PAServer成了App後,位置也稍微不同了!分享給朋友們知道一下~

一、在RAD PAServer XE4按右鍵 顯示套件內容

paserverxe4

二、資料夾依序進入 Contents→MacOS

paserverxe4-01

paserverxe4-02

三、可以看到paserver.config這個檔案paserverxe4-03

四、用 文字編輯程式打開

paserverxe4-04

可以看到內容
port=64211
scratchdir=~/RADPAServer/scratch-dir

在最後一行加入

password= xxxx

存檔後就可以囉!

Delphi XE4 for iOS 台中場 Delphi K.Top站長分享App上架流程

強者前東家老闆,同時也是 Delphi K.Top討論區站長 領航天使(李信宏),透過自己實作的方式分享如何使用Delphi XE4開發iOS以及上架。簡報中也看到實際有上架了二個app,CChess(中國象棋暗棋)以及DiuDiu。這意味著以前利用Delphi 寫的遊戲,可以不用很痛苦的透過Delphi XE4移植到 iOS上囉!

20130522-095215.jpg

【Delphi XE4】定位功能

示範如果快速使用Delphi XE4開發iOS定位功能的程式

1.建立一個新的FireMonkey Mobile Application

未命名 - 1

2.選擇 Blank Application 空白類型。

未命名 - 2

3.新增元件ListBox,將 Align 改為 alTop; GroupingKind 改為 GsGrouped;StyleLookup 改為 transparentlistboxstyle。

未命名 - 3

4. ListBox按右鍵,Add Item 新增 TListBoxHeader,在裡面新增Label ,屬性 Align 設為 alClient ; StyleLookup 設為 toollabel ; TextAlign 設為 taCenter。

未命名 - 7

5. 接著新增三個 TListBoxItem,分別是開啟定位、經度、緯度。在開啟定位的右側新增TSwitch開關來開啟定位功能。經度、緯度使用TLabel。

未命名 - 22

未命名 - 15

6.接著在畫面上佈置TWebBrowser跟TLocationSensor,TWebBrowser的 Align 設為 alClient。

未命名 - 16未命名 - 18

7.佈置好的畫面如下圖

未命名 - 24

8. 在Switch1 的 OnSwitch 事件中新增程式如下

procedure TForm1.Switch1Switch(Sender: TObject);
begin
  LocationSensor1.Active := Switch1.IsChecked ;
end;

9.接著在 LocationSensor1 的 OnLocationChange事件中新增程式如下

procedure TForm1.LocationSensor1LocationChanged(Sender: TObject;
  const OldLocation, NewLocation: TLocationCoord2D);
const
  sGoogleMapURL : String = 'https://maps.google.com/maps?q=%s,%s&output=embed';
begin
  label3.Text := '經度: ' + NewLocation.Latitude.ToString;
  label2.Text := '緯度: ' + NewLocation.Longitude.ToString;

  WebBrowser1.Navigate(Format(sGoogleMapURL,
                              [NewLocation.Latitude.ToString,
                               NewLocation.Longitude.ToString]));
end;

10.大功告成!我們來看執行結果

螢幕快照 2013-05-19 上午11.16.43

螢幕快照 2013-05-19 上午11.22.22