熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi面向對象的編程方法(二)

2013-11-11 21:06:52  來源: Delphi編程 

   一個調用Delphi方法的簡單例程 

      下文將通過對一個Memo部件的文本進行剪切拷貝粘貼清除等編輯的應用程序編制介紹使用Delphi過程和函數的調用方法

       Memo(備注)部件有一個CutToClipboard方法實現將用戶在memo中選擇的文本移到剪貼板上去由於這個功能已經被建立在此方法中了所以您只需知道這個方法做什麼以及如何使用它即可

       下面的語句表明如何調用一個名為Memo的memo部件的CutToClipboard方法 

       MemoCutToClipboard; 

       通過指定Memo的名稱說明調用哪一個部件的CutToClipboard方法如果不指明對象名稱Delphi會顯示Unknown identifier錯誤當該事件處理過程被觸發程序會執行CutToclipboard中的語句將Memo中的文本剪貼到剪貼板上去

       下文的例程展示了如何調用Delphi的方法實現將備注部件的文本信息剪切拷貝到剪貼板上將剪貼板上的標記文本粘貼到備注中清除備注部件中的全部文本等四個功能

       打開一個新的空窗體加入一個memo部件和四個按鈕並排列整齊改變按鈕部件的Name屬性分別命名為CutCopyPasteClear您會發現當Name屬性發生改變時Caption屬性將發生相應的變化在Caption屬性前加標&號設立加速鍵

        將memo部件的ScrollBars屬性設為ScVertical以便加上滾行條將WordWrap屬性設置為True這樣當用戶輸入文本到達Memo部件的右邊緣時會自動回行將Line屬性第一行的Memo文本刪除使得memo部件在初始顯示時為空的

  為每一個按鈕建立如下的事件處理過程 

  procedure TFormCutClick(Sender: TObject)
  begin
  MemoCutToClipboard;
  end; 
  procedure TFormCopyClick(Sender: TObject);
  begin
  MemoCopyToClipboard;
  end; 
  procedure TFormPasteClick(Sender: TObject);
  begin
  MemoPasteFromClipboard;
  end; 
  procedure TFormClearClick(Sender: TObject);
  begin
  Memoclear;
  end; 

  執行此程序您可以在備注部件中輸入文本在進行了文本的標記後可以任意地進行剪切拷貝粘貼和清除當按鈕被按動時就調用相應的過程進行處理用戶可以通過查閱在線幫助進行Memo部件的Topic Search在Memo Component項中查閱Method會得到以上過程的詳細說明 

  調用Delphi的含參過程 

  有些過程要求用戶指明參數被調用的過程會在執行時使用傳入的參數值這些值在過程中被認為是已經被說明的變量例如LoadFromFile方法在TString對象中被說明為 

  Procedure LoadFromFile(const FileName: String) 

  在調用這一過程時應指明FileName參數是要裝入的文件名稱下面的程序將先打開Open對話框當您選擇了一個文件後Delphi將把該文件讀入一個Memo部件 

  begin
  OpenDialogExecute;
  MemolinesLoadFromFile(OpenDialogFileName);
  end; 

  使用Delphi函數 

  與過程一樣函數的程序代碼也執行特定的工作它和過程的差別為函數執行時會返回一個值而過程則沒有返回值函數可以用來賦給一個屬性或變量也可以使用返回值來決定程序的流程

  前文中我們實際上已經接觸過了函數在講述變量時曾用到過下面的程序段 EditText := IntToStr(X + Y)其中IntToStr(Value)把一個LongInt類型的數值轉化為字符串的值Value是IntToStr唯一的參數它可以是一個整形的值變量屬性或產生整形值的表達式調用函數必須把返回值賦給和此返回值類型兼容的變量或屬性

  有些函數返回一個True或False的布爾量用戶的程序可以根據返回值來決定跳轉下文的例程講述了函數返回值為Boolean的判斷用法

  在窗體中加入一個ColorDialog對象和一個Name屬性為ChangeColor的按鈕為按鈕的OnClick事件建立事件處理過程如下 

  procedure TFormChangeColorClick(Sender: TObject);
  begin
  if ColorDialogExecute then
  FormColor := ColorDialogColor
  else
  FormColor := clRed;
  end; 
  &nbs; 

  此事件處理過程使用一個返回Boo

  ean值的Execute方法按動按鈕並在顏色對話框中選擇一個顏色如果按動OK按鈕ColorDialogExecute方法將返回True則FormColor將被賦值為ColorDialogColor窗體顯現您選用的顏色如果按動顏色對話框的Cancel按鈕方法將返回False值窗體將變為紅色


From:http://tw.wingwit.com/Article/program/Delphi/201311/8533.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.