如何在编辑的窗体上划线？(50分)

Z

zylnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #1

可否在窗体上直接划线及几何图形？

 

G

guilinlzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #2

canvus

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #3

form1.Canvas.Pen.Color:=clred;
form1.Canvas.MoveTo(100,100);
form1.Canvas.LineTo(200,200);
form1.Canvas.Rectangle(Rect(300,300,400,400));
一般的书有很多例子

 

S

swordwater

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #4

如下例：在Delphi在线帮助里，使用TCanvas类
procedure TForm1.Button1Click(Sender: TObject);
begin
with Form1 do
begin
Canvas.Pen.Color := clBlue;
Canvas.MoveTo( 10, 10 );
Canvas.LineTo( 100, 100 );
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Name := 'Arial';
Canvas.TextOut( Canvas.PenPos.x, Canvas.PenPos.y,'This is the end of the line' );
end;
end;

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #5

form.canvas就行，帮助中也有的。

 

Z

zylnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #6

谢谢您真心的帮助

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #7

多人接受答案了。