利用 ColorToString轉成文字(可存在資料庫中)；再透過StringToColor賦值給物件的Color屬性就可以了
uses Vcl.Graphics;
if colordialog1.Execute then begin ;
form1.Color := stringtocolor(colortostring(colordialog1.color));
end;
標籤: Delphi
Delphi 跑馬燈做法參考
if label1.left+label1.width>=0 then
label1.left:=label1.left-3
else
begin
inc(ordn);
if ordn>=memo1.lines.count then ordn:=0
else if trim(memo1.lines[ordn])=” then ordn:=0;
label1.left:=label1.Parent.Width;
label1.caption:=memo1.lines[ordn];
end;
備註：
1.Form出現捲軸
Form1.HorzScrollBar.Visible := False;
2.Timer不要設定太慢
3.ordn設為private變數（不要設定在timer事件）
【Delphi XE4】常用的Hot key
畫面
- F12 切換程式碼編輯及表單設計
程式碼縮排
- 內縮(向右) Ctrl + Shift + I
- 外張(向左) Ctrl + Shift + U
- 自動編排 Ctrl + D
書籤 bookmark
- Ctrl + Shift + 0-9(數字) 註：0與１可以用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-將POS系統的Interbase匯到MySQL資料庫
前一陣子研究各家的餐飲、簡餐POS系統，意外的發現不少系統都是用Delphi寫的，資料庫也大多使用Interbase或是Firebird。
為了方便研究，就嘗試將資料庫轉到MySQL上去～記錄一下轉移方式。
工具：
- MySQL ODBC 3.51.30
- Embarcadero SQL Explorer
- Embarcadero Datapump
做法：
在MySQL建立空白資料庫(utf8)
資料來源 (ODBC)新增 MySQL ODBC 3.51 Driver，注意一點要記得打開Details，將 Character Set 選成 Big5(不是utf8喔)
SQL Explorer→New Database→Database Driver Name選INTRBASE，SERVER NAME選擇您要連結的GDB檔案
打開Datapump，Source Alias選擇在SQL Explorer建立的名稱，User Name是SYSDBA(注意大小寫)，password是 masterkey(注意大小寫)。接著Target Alias選擇MySQL ODBC建立的名稱。
【Delphi XE4】DBGO MySQL亂碼問題
專案使用DBGO連接MyODBC 3.51時，出現中文是亂碼的冏境。
解決方式在ODBC連線的Detail有一個Character Set設定成big5
問題就解決了～
【Delphi XE4】 簡易手電筒
使用Delphi XE4開發手電筒程式原始碼
[delphi]
// 檢查是否有閃光燈
Camera.HasFlash;
// 開啟閃光燈
Camera.TorchMode := TTorchMode.tmModeOn;
// 關閉閃光燈
Camera.TorchMode := TTorchMode.tmModeOff;
[/delphi]
【Delphi XE4】sqlite3.dll not found解決方式
Delphi XE4開發iOS資料庫時，Data Explorer建立SQLite連線時，Test Connection時出現 Failed: “sqlite3.dll not found”的訊息。
解決方式：
1.到 SQLite 網站 http://www.sqlite.org/
2.下載 sqlite-dll-win32-x86-3071700.zip
3.解壓縮後將 sqlite3.dll 複製到 C:\WINDOWS\system (64 bit則複製 c:\windows\sysWOW64 、 C:\Windows\System32 )
【Delphi XE】清空歡迎畫面中的開啟過檔案(Clear Recently Opened Projects)
在Delphi的IDE中，會記住曾開啟的專案及文件，不過日子久了之後，可能專案不見了，或是種種問題，會想要清空它。今天再來教大家如何清空囉！
一、開啟 File → Reopen →Properties
二、會出現圖中的 Reopen Menu Properties視窗，在這邊可以設定要記住幾個專案（Number of Projects)或是文件（Number of Files)，在下面的Reopen items就是列表了，它還設計了幾個選項
Delete Nonexistent Files 刪除不存在的
Delete 刪除單一
Clear 全部清空
三、依照您想刪除的，清空後看起來就清爽多了。
RAD PAServer XE4 設定預設密碼
在前一篇XE3設置PAServer的文章中，有教各位如何設定預設的密碼！不過XE4的PAServer成了App後，位置也稍微不同了！分享給朋友們知道一下～
一、在RAD PAServer XE4按右鍵 顯示套件內容
二、資料夾依序進入 Contents→MacOS
三、可以看到paserver.config這個檔案
四、用 文字編輯程式打開
可以看到內容
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上囉！
