コラム / もーのーくーろー / もうちょい楽に

コラム/もーのーくーろー

またアドバイスが入ったー

75 名前：以下、名無しにかわりましてVIPがお送りします[] 投稿日：2006/02/12(日) 14:05:18.32 ID:T7BzSea00
スクロールボックスの左上0,0にぴったり貼って、
TImageのautosizeをtrueにしなきゃ駄目だお

Image1のプロパティ、
AutoSizeをTrueにしてやってください。
で、ボタンクリックの、リサイズ部分を消します。

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then begin
       Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   end;
end;

これでいいらしいです。