アイコンを拡大して表示するには (ID:7663)

名前

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

本文

Image1 に背景画像があるとして、その上で動かすアイコンは PaintBox1 に
描くことにし、移動は PaintBox1 の Left Top を変化させるとします。

新規で以下のようにしてください。Image1 には予め大きめの画像を読み込んで
おきます。ImageList1 をダブルクリックしてアイコンを一つ読み込んでおきます。
PaintBox1 は Image1 の上に置きます。

Button1 を押すと、アイコンの画像がピコピコ移動します。

type
  TForm1 = class(TForm)
    Image1: TImage;
    ImageList1: TImageList;
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    Icon:TIcon;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PaintBox1.Width := 48;
  PaintBox1.Height := 48;

Icon := TIcon.Create;
  ImageList1.GetIcon(0,Icon);

Randomize;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Icon.Free;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  DrawIconEx(PaintBox1.Canvas.Handle,0,0,Icon.Handle,48,48,0,0,DI_NORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PaintBox1.Left := Random(300);
  PaintBox1.Top := Random(300);
end;

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

戻る