我定义了一个类TC = class(TComponent)
private
FPaste:TAction;
procedure FPasteExecute(Sender:TObject);
……
published
property Paste:TAction read FPaste;
end;
实现时
procedure TC.FPasteExecute(Sender: TObject);
begin
……
end;
在外面调用时
procedure TForm1.Button2Click(Sender: TObject);
begin
Action:=clip1.Paste;
Action.Execute;
end;
报错请帮我看看是那里错了。总是提示访问非法内存。
private
FPaste:TAction;
procedure FPasteExecute(Sender:TObject);
……
published
property Paste:TAction read FPaste;
end;
实现时
procedure TC.FPasteExecute(Sender: TObject);
begin
……
end;
在外面调用时
procedure TForm1.Button2Click(Sender: TObject);
begin
Action:=clip1.Paste;
Action.Execute;
end;
报错请帮我看看是那里错了。总是提示访问非法内存。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货