くだすれDelphi(超初心者用)その51

くだすれDelphi(超初心者用)その51 at TECH

467:デフォルトの名無しさん
10/03/21 11:59:23
>>462
コンポーネントのイベントハンドラから、引数を追加したイベントを発行するってのは？

れい
type TNotifyEventEx = procedure (Sender, Option : TObject) of object;

...

property OnNotifyEx : TNotifyEventEx;

...

procedure THoge.HogeNotifyEvent(Sender : TObject);
var
uge : TUge;
begin
if Assigned(Self.OnNotifyEx) then begin
uge := TUge.Create;
Self.OnNotifyEx(Sender, uge);
uge.Free;
end;
end;

次ページ

続きを表示

1を表示