Traduzir mensagem do DBGrid (Ctrl Del)

Delphi

24/03/2004

Olá para todos!

Eu queria manter no programa o atalho que o DBGrid possui de ao ser pressionado Ctrl+Delete ele deleta o registro da tabela. O problema é que ele mostra uma mensagem em inglês de confirmação e eu queria traduzir essa mensagem, mas não sei onde tratá-la. Alguém poderia me ajudar?

Eu até contornei o problema fazendo o seguinte:

if (Key in [VK_DELETE]) and (ssCtrl in Shift) then
   begin
      Key := 0;
      DBGrid1.DataSet.Delete; //No BeforeDelete eu mostro minha msg de confirmação
   end;


Mas eu queria saber se é possível traduzir diretamente essa mensagem...

bb!


Delphi32

Delphi32

Curtidas 0

Respostas

Henry

Henry

24/03/2004

Brother, de uma olhada nessas mensagens traduzidas, num sei se tem essa que vc precisa, mas pode ter...

http://www.delphibr.com.br/download.php

La tem uns sources com varias mensagens traduzidas para varios delphis.

Espero que isso te ajude, um abraço, Henry.


GOSTEI 0
Demolitor

Demolitor

24/03/2004

Cara, esta eh uma forma de traduzir a msg de deleção...
Coloque no evento BeforeDelete de sua tabela.

procedure TForm1.Table1BeforeDelete(DataSet:TDataSet);
begin
if MessageDlg(´Excluir o Registro?´,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Abort;
end;

Falow


GOSTEI 0
POSTAR