程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi 中關於Button的OnClick的思考

Delphi 中關於Button的OnClick的思考

編輯:Delphi

Unit Unit1;
Interface
Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
Type
  TForm1 = Class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Procedure Button1Click(Sender: TObject);
    Procedure Panel1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;
Var
  Form1             : TForm1;
Implementation
{$R *.dfm}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  ShowMessage('Button1Click');
End;
Procedure TForm1.Panel1Click(Sender: TObject);
Begin
//如果TForm1內有 Button1: TButton;,那麼下面兩方式都是對 button1的onclick調用,
  Form1.Button1Click(form1);
//是直接調用TForm1的Button1Click過程,跟button1對象是否存在沒有關系,
//如果在窗體設計面版中刪除button1對象,仍能運行
  Form1.Button1.Click;
//是直接調用Button1對象的Click過程,跟button1對象有直接關系,
//如果在窗體設計面版中刪除button1對象,此方法也不存在
//如果我們把一個其他能產生click控件產生一個其click過程時,
//該過程以其控件名[button1+click+(Sender: TObject)相應的參數]自動生成方法名,
//如果在窗體設計面版中刪除該對象,對象聲名刪除Button1: TButton;,
//但其產生的方法(如click,mousedown等等),並沒有被相應刪除,
//如果我們再新建一個同名但不類的控件時,
//只要在Object Inspector裡的Events屬性卡雙擊相應的過程,仍會關聯上原來的過程,
//雖然這兩者沒有必然的聯系.
End;
End.


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved