如何在delphi中画线条,画矩形框
答案:1 悬赏:0 手机版
解决时间 2021-02-26 01:13
- 提问者网友:战魂
- 2021-02-25 21:18
如何在delphi中画线条,画矩形框
最佳答案
- 五星知识达人网友:北方的南先生
- 2021-02-25 22:20
在form中的画布(canvas)上可以作图,例如:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with canvas do begin
MoveTo(100,0); // 起点
LineTo(100,100);
lineto(300,50);
end;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with canvas do begin
MoveTo(100,0); // 起点
LineTo(100,100);
lineto(300,50);
end;
end;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯