delphi语法

procedure TForm1.Panel1Click(Sender: TObject);
var
 myGraphics: Graphics;
begin
 myGraphics :=graphics.fromhwnd(panel1.handle);
 mygraphics.filrectangle(brushes.white,panel1.clientrectangle);
 mypen.dashstyle :=dashstyle.solid;
 mypen.color :=color.black;
 myen.startcap :=linecap.flat;
 mypen.endcap :=linecap.flat;
 mypen.endcap :=linecap.flat;
 mypen.width :=10;
 end;

end.

 

 

不能正常编译,何解？

mypen.dashstyle :=dashstyle.solid;
 mypen.color :=color.black;
 myen.startcap :=linecap.flat;
 mypen.endcap :=linecap.flat;
 mypen.endcap :=linecap.flat;
 mypen.width :=10;
这里mypen从何而来？出现未定义的变量，自然就编译不过了。

Graphics是个单元,不是类型，你这样写当然不行了。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息