掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数や手続きのアドレスを渡す (ID:34014)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
レスありがとうございます。まずofZ さんの方法でやってみましたが、関数は描かれません。 TPaintScreen 内部でFuncを処理する必要はないのでしょうか？ KHE00221 さんの方はイベントの代入でコンパイルエラーが出ます。 procedure TForm1.FormCreate(Sender: TObject); begin PaintScreen1 := TPaintScreen.Create(Form1); with PaintScreen1 do begin OnPaint := PaintScreen1Paint;//イベントを代入 ・・・・・・・・ OnDrawSinX := PaintScreen1DrawSinX; //ここでTBitmapとTObjectの互換エラー発生 end; end; procedure TForm1.PaintScreen1DrawSinX(Sender: TObject); var Ex,Ey: Extended; begin with PaintScreen1 do OffBmp.Canvas.・・・・; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.