Delphi APP 開發入門（四）簡易手電筒

閲讀次數：3297 發表時間：2014/05/30

上週教各位製作簡易的計算機後，本週要繼續教大家製作簡易手電筒。讀者可能會發現，筆者在撰寫的前四篇文章中除了前二篇的安裝、設定後，後二篇都是簡易的APP教學。或許有朋友會想，如果APP開發都這麼簡單的話，那程式設計師不就都沒工作了？

呵呵～當然是這樣沒錯囉！之所以叫”Delphi APP開發入門”，主要是希望能夠引領更多對撰寫APP有興趣的朋友”入門”，正所謂「師父領進門，修行在個人」，所以筆者的想法是希望讓大家在最短的時間能夠擁有簡單的作品，進而產生興趣來學習才是最重要的！:)

廢話一堆後，繼續進入正題。

1新增FireMonkey Mobile Application

2選取Blank Application空白專案

3在畫面上放二個元件，TCameraComponent及TSwitch

 

4畫面上可以看到Switch元件是簡體字，是由於XE6語系的問題，可以參考「switch元件簡繁體問題」這篇文章。

5接著點選Switch元件，切換到Events(事件)頁籤，我們要在OnSwitch事件中打開(或關閉)閃光燈。

6.輸入以上的程式碼，如果Switch是開啟(IsChecked)的話，先檢查相機元件是否有閃光燈(HasFlash)，有的話則切換Torchon/Off。

然後又很簡單的我們完成了手電筒的APP了。經過了四週開心又簡單的入門教學後，大家對於利用Delphi XE6撰寫APP是不是有興趣了呢？接下來的教學文件，我們會慢慢的增加更多簡單有趣的APP，希望讓大家有更多自己的作品。

Delphi APP 開發入門（四）簡易手電筒的更多相关文章

  1. Delphi APP 開發入門（三）簡易計算機

    Delphi APP 開發入門(三)簡易計算機 分享: Share on facebookShare on twitterShare on google_plusone_share   閲讀次數:68 ...

  2. Delphi APP 開發入門（五）GPS 定位功能

    Delphi APP 開發入門(五)GPS 定位功能 分享: Share on facebookShare on twitterShare on google_plusone_share   閲讀次數 ...

  3. Delphi APP 開發入門（八）SQLite資料庫

    Delphi APP 開發入門(八)SQLite資料庫 分享: Share on facebookShare on twitterShare on google_plusone_share   閲讀次 ...

  4. Delphi APP 開發入門（六）Object Pascal 語法初探

    Delphi APP 開發入門(六)Object Pascal 語法初探 分享: Share on facebookShare on twitterShare on google_plusone_sh ...

  5. Delphi APP 開發入門（十）REST Client 開發

    Delphi APP 開發入門(十)REST Client 開發 分享: Share on facebookShare on twitterShare on google_plusone_share ...

  6. Delphi APP 開發入門（九）拍照與分享

    Delphi APP 開發入門(九)拍照與分享 分享: Share on facebookShare on twitterShare on google_plusone_share   閲讀次數:30 ...

  7. Delphi APP 開發入門（七）通知與雲端推播

    Delphi APP 開發入門(七)通知與雲端推播 分享: Share on facebookShare on twitterShare on google_plusone_share   閲讀次數: ...

  8. Delphi APP 開發入門（一）重生的 Delphi

    Delphi APP 開發入門(一)重生的 Delphi 分享: Share on facebookShare on twitterShare on google_plusone_share   閲讀 ...

  9. Delphi APP 開發入門（二）Android/iOS設定，Hello World

    Delphi APP 開發入門(二)Android/iOS設定,Hello World 分享: Share on facebookShare on twitterShare on google_plu ...

随机推荐

  1. javascript -- 阻止默认事件 阻止事件冒泡

    1. event.preventDefault();  -- 阻止元素的默认事件.注:a元素的点击跳转的默认事件 , button,radio等表单元素的默认事件 , div 元素没有默认事件 例: ...

  2. 【cf489】D. Unbearable Controversy of Being（暴力）

    http://codeforces.com/contest/489/problem/D 很显然,我们只需要找对于每个点能到达的深度为3的点的路径的数量,那么对于一个深度为3的点,如果有a种方式到达,那 ...

  3. 配置sudo su

    买了UCloud的机器默认给的是root权限,从安全考虑,这个得改改,那就添加一个普通用户吧.. 可是那群民工又有话说了,得有root权限才能启动那些服务进程,每次都要输入root密码才能切换到roo ...

  4. ifcfg-<interface-name> 文件配置详解

    TYPE=Ethernet                            #网卡类型DEVICE=<name>             <name>表示物理设备的名字I ...

  5. Ubuntu 16.04 LTS nodejs+pm2+nginx+git 基础安装及配置环境（未完，未整理）

    -.Ubuntu 安装nodejs 以下内容均在命令行,完成,首先你要去你电脑的home目录:cd ~. [sudo] apt-get update [sudo] apt-get upgrade ap ...

  6. iOS 7 新特性：视图控制器切换API

    本文转载至 http://blog.jobbole.com/51588/ 本文由 伯乐在线 - studentdeng 翻译自 Chris Eidhof.欢迎加入技术翻译小组.转载请参见文章末尾处的要 ...

  7. Java实现简单的文件复制

    public class FileCopy { public static void main(String[] args) { String path = "d:\\1.txt" ...

  8. Git-fatal: unable to access 'xxx' : Could not resolve host: xxx

    解决办法:(在知乎上找到 确实好用) 1.查询代理 git config --global http.proxy 2.取消代理设置 git config --global --unset http.p ...

  9. org.apache.hadoop.yarn.exceptions.InvalidAuxServiceException: The auxService: mapreduce_shuffle do

    在yarn-site.xml 配置文件中增加: <property> <name>yarn.nodemanager.aux-services</name> < ...

  10. 160615、Spring3 MVC 拦截器拦截不到的问题

    昨天项目组有个成员使用拦截器的时候发现不起作用,后来发现了原因,在这里跟大家分享一下(主要是冲突了).分享的是一位网友写的文章,他总结的很好. com.zk.interceptors.MyInterc ...