Modalにする際には？ (ID：2839)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

OnShow,OnActivateともに試してみましたができませんでした。
他にOnClickなど試せるものは試したのですが無理でした。
何かプログラム内容にまずいところがあるとしか考えられません。
プログラムは下のような感じです。

implementation 
uses FbiAd,FbiDa,ELMAPS,ISGRS,STM2,VSELMAPS,VSGRS,
     ROUGH_R,SPEED_R,SPEED_R_C,SXY_R,TLOOP_R;

procedure LINE;
    var i,j:Integer;
    begin //if (IGR AND 16) = 0 then LINE;
           TOPOGRAPHIC.Label10.Caption := FloatToStr(SC); //CURRENT
           //Bitmapの作成
           Bitmap3 := TBitmap.Create;
           Bitmap3.Width := 600;
           Bitmap3.Height := 330;
           Bitmap3.Canvas.Pen.Color := clWhite;
           Bitmap3.Canvas.MoveTo(16,80);Bitmap3.Canvas.LineTo(616,80);
           //途中省略
            OPOGRAPHIC.Canvas.Draw(16,80,Bitmap3);
            Bitmap3.Free;
           //Bitmapの作成
           Bitmap2 := TBitmap.Create;
           Bitmap2.Width := 12;
           Bitmap2.Height := 330;
            //途中省略
           Bitmap2.Canvas.Brush.Color := clBlack;
           Bitmap2.Canvas.Rectangle(0,308,12,330);
           TOPOGRAPHIC.Canvas.Draw(558,80,Bitmap2);
           Bitmap2.Free;
    end;

procedure TTOPOGRAPHIC.TOPOGRAPHIC(Sender: TObject);
begin LINE;
end;

←解決時は質問者本人がここをチェックしてください。

戻る