问 动态创建的按钮的事情

Question

按钮的事件是：
procedure SPAddClick(Sender: TObject);赋值
  FSpeedButtonAdd.OnClick := SPAddClick(Sender);以上的代码全在 .pas 文件中没有 Form 那么  SPAddClick(Sender);  中的Sender 我怎么传呢 1  SPAddClick(nil);
提示
: Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

Answer 1

FSpeedButtonAdd.OnClick := SPAddClick;
就可以了

Answer 2

~~~~如果不用变量的话，要怎么给
FSpeedButtonAdd.OnClick  赋值呢？？
他必须要声明为 (Sender: TObject);  不是吗？？？
 
如果用  procedure SPAddClick;  的话就会 在 
  FSpeedButtonAdd.OnClick := SPAddClick; 的时候提示：：
    [Error] ComBlock.pas(95): Incompatible types: 'Parameter lists differ'~~~~~~~请高手指教~~~~~~~~~

Answer 3

// 这样赋值就行了
@FSpeedButtonAdd.OnClick :=@SPAddClick;

Answer 4

wuqiu(午秋) :用你的方法：
@FSpeedButtonAdd.OnClick := @SPAddClick;
提示
ComBlock.pas(95): Variable required
{{{{{{{
 我是这样声明的
FSpeedButtonAdd : ^TSpeedButton;
}}}}}}}

Answer 5

声明： FSpeedButtonAdd : ^TSpeedButton;
创建： New(FSpeedButtonAdd);
~~~~~~~~~~请问，怎么办

Answer 6

FSpeedButtonAdd.OnClick := SPAddClick;这是传函数指针,不用参数.
但你要保证SPaddClick这个函数的声明是正确的.