Hi there
I am using TTMSFMXGrid and adding the <a> tag to create a link:
procedure TViewPDVMovimentoCaixaPDV.GridMovGetCellData(Sender: TObject; ACol,
ARow: Integer; var CellString: string);
begin
inherited;
if ARow > 0 then
if (ACol = 3) then
begin
CellString := CurrToStrF(StrToCurrDef(CellString, 0), ffCurrency, 2);
end;
if (ACol = 4) then
CellString := '<a href="test">'+CellString+'</a>';
end;
then when the user clicks on the link this event is triggered:
procedure TViewPDVMovimentoCaixaPDV.GridMovCellAnchorClick(Sender: TObject;
ACol, ARow: Integer; AAnchor: string);
var
Doc: string;
begin
inherited;
AAnchor := '';
Doc := GridMov.Cells[ACol, ARow];
if Doc <> '' then
Presenter.CommandParam['caixa.documento', LP.Codigo(Doc)];
end;
What is correct, but after this event a dialog box is opened with the message "test"
https://snag.gy/jiSCWQ.jpg
How can I get rid of this dialog? I have tried moving empty string to anchor with no effect.
Thanks