月份: 2013 年 10 月

【工商服務】APP整合開發養成班

致力於 APP 開發教學的 沈志宗大哥給的訊息，轉貼給朋友們知道一下！

中部的朋友們，久等了！

您要 為期三個半月的 APP 整合開發養成班？
或是 假日在職班？

年底到了，如果想轉行，又不是資訊相關科系，可以大膽報名「APP 整合開發養成班」

如果自己或親戚朋友有剛退伍、剛畢業的小孩，也不是資訊相關科系，擔心找不到好工作的，也可以大膽報名「APP 整合開發養成班」

如果在北部，當然是選擇中央大學資策會 (http://goo.gl/jH2PU)

另外，如果你不想浪費時間在電視前看宮廷爭奪劇，認為該把握生命利用時間寫 App 多掙些生活費用，每個月多個 US$100~200 也好，那就可以大膽報名「假日在職班」。

我建議您到資策會，不只是因為我在那裡教，也不是資策會比較厲害，只是值得你信賴！

好吧，這裡就有連結可以報名 (http://iphone.to/) 手機也可以！

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事件

[pascal]
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;
[/pascal]

結果就會變成如下圖了！

螢幕快照 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