高手们最性感的图片问题，不要错过啊。分数很高的

Question

TImage--->picture可以达到你的目的。

Answer 1

楼上的办法可以。。
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================

Answer 2

楼上的办法可以。。
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================

Answer 3

在button1里写：var
  bmp:tbitmap;
begin
  bmp:=tbitmap.create;
  bmp.LoadFromFile('c:\test.bmp');  canvas.draw(0,0,bmp);
end;

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var g: TBitmap;
begin
  g := TBitmap.Create;
  g.LoadFromFile('h:\Temp.bmp');
  Form1.Canvas.Draw(10,10,g);0D
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 5

uses JPEG;procedure TForm1.Button3Click(Sender: TObject);
var g: TJPEGImage;
begin
  g := TJPEGImage.Create;
  g.LoadFromFile('h:\1998年.jpg');
  Form1.Canvas.Draw(10,10,g);0D
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 6

dwg是AutoCad格式画不上去—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 7

已知类型（假设是JPEG）：
uses
  Jpeg;
procedure TForm1.Button1Click(Sender:TObject);
var
  Graphic: TGraphic;
begin
  Graphic := TJPEGImage.Create;
  Graphic.LoadFromFile('c:\MyPic.jpg');
  Canvas.Draw(0,0,Graphic);
  Graphic.Free;
end;
未知类型：
uses
  Jpeg;//否则会不支持JPEG类型。
procedure TForm1.Button1Click(Sender:TObject);
var
  Picture: TPicture;
begin
  Picture:= TPicture.Create;
  Picture.LoadFromFile('c:\MyPic.jpg');
  Canvas.Draw(0,0,Picture.Graphic);
  Picture.Free;
end;