初入图象处理，求一个画线的单间例子

Question

比如窗体的Panel1上有两个点如A，B，点位置随便定一个吧！
现在我想用一个procedure TForm1.Button1Click(Sender: TObject);
将这两个点用直线连接（画）出来。并且画出来的线要是线色的。刚刚学习DELPHI的一些关于图形处理，想要一个这样的实例来用于学习，希望大家帮忙！谢谢

Answer 1

uses
  GDIPAPI, GDIPOBJ, GDIPUTIL;var
  Graphics: TGPGraphics;
  Pen: TGPPen;
  DC: HDC;
begin
  DC := GetDC(Panel.Handle);
  Graphics := TGPGraphics.Create(DC);
  Pen :=TGPPen.Create(MakeColor(255, 255, 0, 0));
  Graphics.DrawLine(Pen, 0, 0, 100, 100);
  ReleaseDC(Panel.Handle, DC);
  Pen.Free;
  Graphics.Free;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var dc:HDC;
p:TPOINT;
pen:HPEN ;
begin
  dc:=getdc(Panel1.Handle);
  movetoex(dc,10,10,@p);
  pen:=CreatePen(PS_SOLID,1,clred);
  Selectobject(dc,pen);
  lineto(dc,100,100);
  releaseDC(Panel1.Handle,dc);
end;

Answer 3

to sanmaotuo(老冯) 
====================================
哈哈,今天该我说你发谬论了:
没必要用GetDC,直接Graphics := TGpGraphics.Create(Panel.Handle, False)即可.