學習紀錄

羨慕網頁語言的css 一套用上程式就變漂亮了嗎 

delphi 其實也有相同的功能，但是介紹的文件卻是相對地少，你可以把他想成是css的方式，因此物件的命名上就是他的唯一識別值了

開始實作Style 

選擇EDIT Custom Style 

恩有分非同步的以及同步

非同步 版本

 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;

在早期的Delphi SpeedButton 是可以有直接填上顏色的

新版的DELPHI 在填上顏色必須 放入 TRectangle

兩種方式 

都先必須使用TLAYOTU ， 要把TLAYOUT 當作是 圖層 的一種概念

1. 在 Design 放入 TRectangle 並在 Structure 的視窗 

可以把這個想成是 同一個圖曾有兩個物件。並且設定物件的前後

懶著弄呢 就直接勾起 StayOnTop 就好了。否則就是利用Control 來控制他的前後

怕有人跟我一樣有這種詭異的迷思。不過我看網路上好像都沒有所以大概只有我卡下咯

其實在很早期版本會受到 parentFont 如果是True 會不能改字體&顏色

最新的版本也有 只是它放在 btn.StyledSettings 裡面了

自己建立按鈕，必須修改成

          mBtn := TSpeedButton.Create(nil);
          mSliptTime := Trunc(60 / mDiv) ;
          mBtn.Text := mstr +':'+ format ('%0.2d', [(mSliptTime * (j-1))]);
          mBtn.Align := TAlignLayout.Contents;

恩...ALLPAY的串接上面其實挺簡單的。就是在加密那塊很麻煩

主要是用HTTP POS的方式來實作，DELPHI中我們就直接用TIDHTTP即可完成

因為URL 是HTTPS的 所以必須再帶入SSL的兩個必須DLL

開發過程中遇到了幾個問題我以下列表 並附上程式 有興趣的可以參考看看

1. TIDHTTP ...在Windows8的版本  

HTTP.ReadTimeout := 30

必須填入此值。不可用預設的0  在W7 W10 不會有錯 因為0在DELPHI 寫0會有一個預設TIMEOUT時間 (應該也是30秒吧) .....

好吧 也許是大家都沒再用W8 又或者是微軟都偷偷地幫大家升級到了W10

今天在使用INDY TIDHttp這個物件如果要串聯 WebService的時候

再有加入SSL HANDLER 的情況下就會莫名其妙地遇上TIMEOUT

這時候只需要將 TIdHTTP 的 ReadTimeout > 0 即可解決

在DELPHI 理論上-1 代表的就是 無限等待的意思 但是在Windows8 被誤判成 你只接收-1秒 才會有錯誤發生

以下代碼 供給參考

哈，對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

....TStringGrid  DrawCell  事件 

with Sender as TStringGrid do 

以下

    if not (gdFixed in State) then
    begin
      Canvas.Pen.Width := 1;
      // Draw top line
      if aRow > 1  then
      begin
        InflateRect(Rect, 1, 1);