16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル
"イベントに型無し引数を使うには"
この発言に対し以下のコメントが寄せられています
#00770 りゅー さん RE:イベントに型無し引数を使うには
Delphi3.1Jにはイベントハンドラの作成に関してバグがあるようで,
自作コンポに新しいイベントを作るとき,型無し仮引数を含む宣言を
すると,IDEでイベントをアタッチするときにエラーが出て使えません.
Delphi4とそのパッチで直っているかどうかは不明.
TTestEvent = procedure(var V) of object; // const もだめ
.......
published
property OnTestEvent: TTestEvent
read FTestEvent write FTestEvent;
Pointer はなるべく避けたいところで,Variantもいまいちですが,どっち
がいいかと言われたらVariantかな?
type
TTestEvent = procedure(var V:Variant) of object;
TMyClass = class(TComponent)
protected
FTestEvent: TTestEvent;
published
property OnTestEvent: TTestEvent
read FTestEvent write FTestEvent;
end;
TN(CQJ01721)
Original document by TN 氏 ID:(CQJ01721)
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。
Copyright 1996-2002 Delphi Users' Forum
|