學習紀錄

每次看到別人的TChart圖表 就覺得delphi預設的真的很詭異阿 醜到一個不行的，

但應該是我不太會用因此這兩天認真的決定拿一個範本 希望能做的跟他差不多吧 

就拿匹克幫首頁的這個吧

施工完畢後

這個動畫元件已經存在很久了，網路文章也很多

TAnimation

TFloatAnimation ..

直接說明屬性

1. PropertyName 對應的名稱都是編輯器上的名字，例如透明位移等等的。

2. StareValue  動畫的起始點 如果選用透明 起始位置就是1

3. StopValue 動畫的截止點  如果選用透明 截止位置就是0

4. Trigger  這個在TEffect的單元在介紹  想了解的直接看這個

http://docwiki.embarcadero.com/RADStudio/Seattle/en/FireMonkey_Animation_Effects

前面Style -1 設計是針對物件有需要改變的在一個一個去設計

也有方式是直接整個帶入套用。帶這需搭配[媒體設計師] 協助設計會較為恰當

首先在設計器上我們先選擇 Bitmap Style Designer ..

開啟一份新專案。

這時候我們會看到一張透明上面有許多底圖的照片。

恩有分非同步的以及同步

非同步 版本

 TDialogService.InputQuery(
    'Input String',
    ['Enter Your First Name', 'Enter Your Family Name'],                                    //Label 
    ['First Name', 'Family Name'],                                                                        //textBox
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
      Memo1.Lines.Add('First Name = ' + AValues[0]);
      Memo1.Lines.Add('Family Name = ' + AValues[1]);

1. TPrototypeBindSource 自行定義欄位屬性後

撰寫一些程式碼 

新增一個Object 

TLvDate = class(Tobject)
  private
    FA2: String;
    FA1: String;
    FA3: String;

哈，對BCB實在是不太熟悉。

我只是想做個單純的字串相加沒想到這麼麻煩。

{    char str[255];
    strcat(str,a);
    strcat(str,b);
    return str; 

}

後來不是這樣用

...好吧 雖然沒啥還是備注一下以免失意

不OK的寫法

Var

  S:String ;
  p:PAnsiChar;

begin

  s:=  FormatDateTime('yyyymmddhhnnss', now) ;  //20160603010101
  p:=PAnsiChar(s);
  ShowMessage(p);                 //結果= 2