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事件中傳遞過...