イメージにべベルを付けるには？ (ID:10146)

名前

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

本文 新規で Form1 にやや大きめに Image1 とその外に Button1 を置いて、以下の ようにしてみてください。 procedure TForm1.Button1Click(Sender: TObject); var r:TRect; begin Color := clYellow; Image1.Canvas.Brush.Color := clBtnFace; Image1.Canvas.FillRect(Image1.ClientRect); r := Rect(10,10,110,110); DrawEdge(Image1.Canvas.Handle,r,BDR_RAISEDOUTER or BDR_RAISEDINNER,BF_RECT); InflateRect(r,-3,-3); DrawEdge(Image1.Canvas.Handle,r,BDR_SUNKENOUTER or BDR_SUNKENINNER,BF_RECT); end;