Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Editar la accion de un dbnavigator (https://www.clubdelphi.com/foros/showthread.php?t=88577)

rufo 26-06-2015 18:16:39

Editar la accion de un dbnavigator
 
Buenos días amigos les deseo un excelente fin de semana, quería ver si me pueden ayudar en como puedo hacer para cambiar o mas bien personalizar el mensaje que me sale por default cuando oprimo el boton de delete en el objeto dbnavigator ya que este tiene un mensaje por default y yo quiero personalizarlo un mensaje mio, espero su apoyo y de antemano gracias.

ecfisa 26-06-2015 18:48:55

Hola rufo.

Un modo es este:
Código Delphi [-]
...
procedure TForm.FormCreate(Sender: TObject);
begin
  DBNavigator1.ConfirmDelete:= False;
end;

procedure TForm.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
const
  flags = MB_ICONQUESTION or MB_YESNO;
begin
  if Button = nbDelete then
    if MessageBox(Handle, '¿ Ud. sabe la barbaridad que va a hacer ?', '', flags) = IDNO then
      Abort;
end;

Saludos :)

rufo 26-06-2015 19:03:17

Genial, genial probé tu código y me funciono de maravillas gracias.


La franja horaria es GMT +2. Ahora son las 21:38:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi