type
TcopyingLabel = class(TLabel)
private
protected
procedure Click; override;
public
published
end;
procedure Register;
implementation
uses Clipbrd;
procedure Register;
begin
RegisterComponents('Standard', [TcopyingLabel]);
end;
procedure TcopyingLabel.Click;
begin
Clipboard.AsText:= Self.Caption;
{ behaviorial click of inherited parent }
inherited Click;
end;