掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数や手続きのアドレスを渡す (ID:34015)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょい修正 TDrawSinX = procedure (Sender: TObject; ABitmap: 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(Self,ABitmap); end; に変更して procedure TForm1.PaintScreen1DrawSinX(Sender: TObject; ABitmap: TBitmap); var Ex,Ey: Extended; begin with ABitmap do Canvas.・・・・;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.