过程参数问题?谁知道? |
答題得分者是:blueK
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
[code delphi] 請在此區域輸入程式碼过程代码如下: procedure change(var x:Tcomponent); begin form1.repaint; form1.Canvas.pen.color:=clblue; form1.Canvas.pen.width:=3; form1.Canvas.polyline([point(speedbutton1.left,speedbutton1.top), point(speedbutton1.left speedbutton1.width,speedbutton1.top), point(speedbutton1.left speedbutton1.width,speedbutton1.top speedbutton1.height), point(speedbutton1.left,speedbutton1.top speedbutton1.height), point(speedbutton1.left,speedbutton1.top)]); end; 我想把上面的这段改写成过程,是不是把里面的SPEEDBUTTON1改成X? 如果调用的话,我用 Procedure button1.onclick(sender:Tobject); begin change(button2); end; 对不对,好像老是报错啊,望各位大哥多多指点小弟,谢谢! [/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
blueK
初階會員 發表:19 回覆:62 積分:36 註冊:2004-05-06 發送簡訊給我 |
改成這樣,參考嚕!!!
[code delphi] procedure TForm1.change(x:Tcomponent); begin form1.repaint; form1.Canvas.pen.color:=clblue; form1.Canvas.pen.width:=3; form1.Canvas.polyline([point(TButton(x).left,TButton(x).top), point(TButton(x).left TButton(x).width,TButton(x).top), point(TButton(x).left TButton(x).width,TButton(x).top TButton(x).height), point(TButton(x).left,TButton(x).top TButton(x).height), point(TButton(x).left,TButton(x).top)]); end; procedure TForm1.Button1Click(Sender: TObject); begin change(button2); end; [/code] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |