30天學會Delphi手機應用程式開發書籍撰寫

先前有外國人 sam lu的 100 days of Swift的學習專案,後來 allenwong也在Github發佈了 30DaysofSwift 。於是開始著手寫一本 30天學會Delphi手機應用程式開發的計畫~

為什麼會用30天?不是60天或100天呢?

主要是因為Embarcadero的產品試用是30天~也就是剛好可以試用到完 🙂

有興趣購買的可以到我的FB社團觀看最後的消息

1459602665782

Facebook Delphi Developer【Delphi開發者】 社團

https://www.facebook.com/groups/585770898163978/

中台科技大學使用Delphi XE6開發成果

10846058_10152391825376541_6729644901142507463_n
有幸成為中台科技大學畢業專題研究的考試委員,要感謝中台資管系裡一直致力於推廣Delphi的李桂春老師,以及幾位老師排除許多意見讓Delphi這門課仍在學校中延續。
這次的二組學生共開發了六支程式
一、Smile BUS
二、學務小幫手 – 學生護照、失物招領、車號辨識、賃居訪視、校安警報系統
系統內應用了Google Map、GPS、上傳、拍照、QRCode…..等技術,完成度相當的高!
10846309_10152396576211541_8581711142382981368_n

10565285_10152396576181541_5511641369811730287_n

10414380_10152396576136541_2027245156865070595_n

10360343_10152396576086541_9016676841456869558_n

1012968_10152396575891541_8956913892727382166_n

10175956_10152396575801541_6156401098272297629_n

10559764_10152396575726541_7185801609891298930_n

Delphi XE5 Android Kitkat Style下載

Delphi XE5提供 Andoird 4.4 Kitkat的樣式下載,使用的方式也相當簡單

1)在畫面上放一個TStyleBook元件

2)將 AndroidLight.fsf 或 AndroidDark.fsf 載入到TStyleBook元件

3)在 form oncreate事件加上~

{$IFDEF ANDROID}

if TOSVersion.Check(4, 4) then StyleBook := StyleBook1;

{$ENDIF}

下載網址: embarcadero網站

Delphi XE5實作仿Facebook Slide Menu

螢幕快照 2013-10-01 上午9.30.24

既然Delphi XE5可以開發Android、iOS的程式,那可不可以設計像Facebook一樣的選單呢(如上圖)?答案是可以的!

接下來就手把手教大家操作。

1首先開一個空的Mobile Project,在上面放一個ListBox元件,將Aligh設定為alClient

螢幕快照 2013-10-01 上午8.55.27

2接下來回到ListBox元件按右鍵進入 Item Editor,建立如下圖的選單

螢幕快照 2013-10-01 上午8.59.12

3.接下來再放上一個Panel,一樣把Aligh設定成alClient,接著在上面放一個ToolBar

螢幕快照 2013-10-01 上午9.01.41

螢幕快照 2013-10-01 上午9.02.01

4.在ToolBar上放一個SpeedButton,設定StyleLookup為detailstoolbuttonbordered

螢幕快照 2013-10-01 上午9.02.45

螢幕快照 2013-10-01 上午9.03.18

5.回到Panel元件,設定Position的X ,下拉選擇 Create New TFloatAnimation

螢幕快照 2013-10-01 上午9.49.49

6.接著在SpeedButton 的 OnClick事件

var
  FloatAnimationX: single;
begin
  FloatAnimationX:=Self.ClientWidth - 60;

  if (panel1.Position.X=FloatAnimationX) then begin
    FloatAnimation1.StartValue:= FloatAnimationX;
    FloatAnimation1.StopValue:= 0;
  end
  else begin
    FloatAnimation1.StartValue:= 0;
    FloatAnimation1.StopValue:= FloatAnimationX;
  end;

  <del datetime="2013-10-01T09:44:53+00:00">AnimateDrawer</del>FloatAnimation1.Start;
end;

結果就會變成如下圖了!

螢幕快照 2013-10-01 上午9.27.52
如果你要在Panel加上陰影的話,只要在Panel加上即可
螢幕快照 2013-10-01 上午9.28.40

螢幕快照 2013-10-01 上午9.29.30

螢幕快照 2013-10-01 上午9.30.24

 

GitHub原始碼 https://github.com/superlevin/delphixe5facebookslidemenu