过程参数问题？谁知道？

發文回覆瀏覽次數：841

推到 Plurk!

推到 Facebook!

答題得分者是：blueK

zhouying82
高階會員

發表：150
回覆：272
積分：189
註冊：2004-03-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-01-14 16:26:41

IP:125.215.xxx.xxx 訂閱

[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

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-01-14 16:51:06

IP:203.67.xxx.xxx 未訂閱

改成這樣，參考嚕!!!

[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]

系統時間：2024-04-20 21:34:49

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！