I would like to create TIWCGJQMLabel programatically and assign event OnTapHold.
- Code: Select all
procedure TForm_mTravelOrderRoute.pListFiles;
var MLabelFile: TIWCGJQMLabel;
begin
MLabelFile := TIWCGJQMLabel.Create(Self);
MLabelFile.Events.OnTapHold := MLabelFileEventsTapHold; // ERROR HERE
end;
- Code: Select all
procedure TForm_mTravelOrderRoute.MLabelFileEventsTapHold(Sender: TObject; AParams: TStringList);
begin
WebApplication.ShowMessage(AParams.Values['ComponentName']);
end;
But when code is compiled error "E2035 Not enough actual parameters" is raised.
I know this is probably not just cgdevtools question but still I used similar code many times in VCL and it worked (as long as procedure had right parameters).
Best regards,
Tomaž