PaintBox 問題 |
尚未結案
|
boson
中階會員 發表:74 回覆:155 積分:85 註冊:2004-07-31 發送簡訊給我 |
|
chiehmin
高階會員 發表:13 回覆:134 積分:134 註冊:2002-05-23 發送簡訊給我 |
用PictureBox或用Panel都可以...
Delphi7 例:
procedure TForm1.Button1Click(Sender: TObject); begin With PaintBox1.Canvas do begin Pen.Color := clGreen; MoveTo(0, 10); LineTo(10, 100); end; end;↓↓↓↓↓ Delphi 8例: procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs); var g: Graphics; begin //使用PictureBox g := PictureBox1.CreateGraphics; g.DrawLine(Pen.Create(Color.green), 0, 10, 10, 100); ////使用Panel g := Panel1.CreateGraphics; g.DrawLine(Pen.Create(Color.green), 0, 10, 10, 100); end; |
boson
中階會員 發表:74 回覆:155 積分:85 註冊:2004-07-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |