Question

delphi canvas 怎样创建按钮 求代码

Answer 1

没明白你意思，要创建按钮，你到vcl里面看看button怎么画的不就清楚了？

追问

我想实现单击鼠标在form 上出现按钮

追答

那你就动态创建一个button，把button的parent设置为需要的form就行了，canvas只是一个画布，可以画出button的外表，却没有button的功能的。

追问

怎样能让鼠标每单击一下出现一个button 连续单击让他连续出现按钮 还有parent设为self他俩是什么意思啊

追答

那你就每点击一次就创建一个button，设置parents为所需from，然后show，就行了，在每个控件的内部函数或过程使用self都是指向改控件本身，如procedure TFrom1。Button1click（sender： TObject）；
begin
Button1.parent：= self；//这里的self只的就是Tform1当前实例，而不是Button1；
end；