messagebox

[gonza_619]

hola miern necesito hacer un messagebox con opcion de si o no y como pregunta: desea eliminar el registro seleccionado?
bueno e intentado:
if messagebox(0,'desea eliminar el registro?',mb_yesno)=idyes
then
application.terminate;

esto lo hice como prueba, estara bien el codigo porque me tira error, o de q otra manera se podria hacer;
gracias desde ya

[[Caral]]

Hola

Código Delphi [-]
if MessageBox(Handle, 
                PChar('Desea Eliminar el Registro Seleccionado'), 
                PChar('Mensaje del registro'),
                MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = IDYES then
  begin
  end;

Saludos

[afunez2007]

Eso se hace asi:

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
begin
  case MessageBox(Handle, 'Desea eliminar el registro?', '', MB_YESNO +
    MB_ICONQUESTION) of
    IDYES:
      begin
        //Lo que hace si clickean Si
        Table1.Delete;
      end;
    IDNO:
      begin
        //Lo que hace si clickean No
        Exit;
      end;
  end;
end;

Debes asegurarte que en las uses este: Windows, Messages

Saludos

[cloayza]

Otra forma:

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
begin
  case Application.MessageBox('Desea eliminar el registro?', 'Titulo', MB_YESNO + MB_ICONQUESTION) of
    IDYES:
      begin
        //Lo que hace si clickean Si
        Table1.Delete;
      end;
    IDNO:
      begin
        //Lo que hace si clickean No
        Exit;
      end;
  end;
end;

Código Delphi [-]
if Application.MessageBox(PChar('Desea Eliminar el Registro Seleccionado'), 
                PChar('Mensaje del registro'),
                MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = IDYES then
  begin
  end;

Saludos

[[Caral]]

Hola soy gonza_619
Quiero agradecer a: Caral, afunez2007 y cloayza por vuestros codigos.
Me han servido de mucho, estoy muy contento y ya pude solucionar mi inquietud.
Gracias a todos y muchos
Puedo dar por terminado este hilo.

PD:

[ecfisa]

Empezado por Caral

Hola soy gonza_619
Quiero agradecer a: Caral, afunez2007 y cloayza por vuestros codigos.
Me han servido de mucho, estoy muy contento y ya pude solucionar mi inquietud.
Gracias a todos y muchos
Puedo dar por terminado este hilo.

PD:

Esa es la actitud que gusta gonza!

Pd: Sobre tu código: 'Si bueno y breve, dos veces bueno', sobre todo si proviene de un 'novato'

Saludos.

[[Caral]]

Hola
Estos codigos no los hago yo, los hace un programita solo.
Simplemente se le dice que hacer y lo hace, es muy practico.
Sirve para hacer mensajes, avisos, los hace con case, con if, solos.
Es muy practico.
Como ves, no hago tanto codigo como parece, pero si hago, control+c y control+v frecuentemente.
Saludos