掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数や手続きのアドレスを渡す (ID:34013)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
どうせならイベントにしたほうが・・・・ TDrawSinX = procedure (Sender: TBitmap) of object; TPaintScreen = class(TPaintBox) private FDrawSinX: TDrawSinX; OffBmp: TBitmap; public procedure Draw; procedure DrawSinX(ABitmap: TBitmap); published property OnDrawSinX: TDrawSinX read FDrawSinX write FDrawSinX; end; procedure TPaintScreen.Draw; begin DrawSinX(OffBmp); end; procedure TPaintScreen.DrawSinX(ABitmap: TBitmap); begin if Assigned(OnDrawSinX) = True then OnDrawSinX(ABitmap); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.