初探類的字段 屬性 方法 事件

2021-06-12 00:06:35 字數 1426 閱讀 7872

tmyevent = procedure of object;

tmyclass = class

private

fage: integer;

fonhundred: tmyevent;

procedure setage(const value: integer);

public

procedure setonhundred1;

procedure setonhundred2;

constructor create;

property age: integer read fage write setage;

property onhundred: tmyevent read fonhundred write fonhundred;

end;

var form1: tform1;

implementation

constructor tmyclass.create;

begin

fonhundred := setonhundred1;

end;

procedure tmyclass.setage(const value: integer);

begin

if (value > 0) and (value < 200) then

fage := value;

if value = 100 then

onhundred;

end;

procedure tmyclass.setonhundred2;

begin

showmessage('100啦!');

end;

procedure tmyclass.setonhundred1;

begin

showmessage('剛好100啦');

end;

procedure tform1.button1click(sender: tobject);

var tmycls: tmyclass;

begin

tmycls := tmyclass.create;

tmycls.age := 100;

tmycls.free;

end;

procedure tform1.button2click(sender: tobject);

var tmycls: tmyclass;

begin

tmycls := tmyclass.create;

tmycls.onhundred := tmycls.setonhundred2;

tmycls.age := 100;

tmycls.free;

end;

//事件型別就是乙個指標,它指向乙個過程

類的屬性 欄位和方法

visual basic 語言概念 一般情況下,欄位和屬性表示物件的資訊,而方法表示物件可以採取的操作。下面的主題描述向類中新增屬性 欄位和方法的機制及處理與這些項關聯的問題。本節內容 向類新增欄位和屬性 提供關於宣告欄位和屬性的資訊。屬性和屬性過程 解釋property過程如何工作以及如何實現公共...

C 類的成員(字段 屬性 方法)

前面定義的person的類,裡面的成員包括 字段 屬性 方法 事件等,此外,前面說的巢狀類也是類的成員。a.類的成員為分 靜態成員 static 和非靜態成員 b.靜態成員用static標識,不標識則預設為非靜態成員 c.靜態成員屬於類所有,動態成員則屬於例項所有,即物件 d.靜態成員為類所有例項共...

c 獲取當前方法事件對應的控制項

例如,combobox1對應的事件selectionchangecommitted private void combobox1 selectionchangecommitted object sender,eventargs e 可以通過selectionchangecommitted事件中傳遞過...