Delphi- Como chamar ActionList no botão?
Estou criando um aplicativo para vários dispositivos no Delphi XE8 que usa o LiveBindings para um conjunto de dados.
Há várias ações específicas de LB para FMX, incluindo TFMXBindNavigateDelete. Estou tentando usar isso em um manipulador de botão-clique como este:
Código do clique no botão:
procedure TForm1.Button1Click(Sender: TObject);
begin
if cdsOrdersSTATUS.Value='READY' then
begin
ShowMessage('Your Order Is Already READY/PENDING!');
end
else
begin
TAction(ActionList1.Actions[0]).Execute; //Not working,why?
end;
end;
O primeiro (e único) item nas ações do ActionList1 é meu FMXBindNavigateDelete1.
O problema é que, mesmo que o códigoTAction(ActionList1.Actions[0]).Execute
executado, o registro atual do conjunto de dados énão excluído, portanto, aparentemente, a ação de TFMXBindNavigateDelete não tem efeito. Por que isso e como posso fazer isso funcionar?
Foto. ActionList1: