2011年2月22日 星期二

讓Panel1 繪圖的方法

TCanvas *pCanvas = new TCanvas();
pCanvas-> Handle = GetDC(Panel1 -> Handle);
pCanvas->Pen->Color = clBlue;
pCanvas->Pen->Width = 1;
pCanvas->MoveTo(0,3);
pCanvas->LineTo(8,3);
pCanvas->LineTo(4,8);
pCanvas->LineTo(0,3);