MessageBox
Publicado por Gerardo (9 intervenciones) el 25/02/2007 10:17:42
Estoy utilizando este codigo en un boton y resulta que al correr el programa, me marca error en todo el codigo posterior a este en la unidad de trabajo, tiene algun error?
//mensaje de confirmación, con los botones Sí/No, devuelve True si se pulsa "Sí"
//el botón por defecto será "No"
function msSin (mensaje, titulo : String) : boolean;
begin
if application.MessageBox (pchar(mensaje),
pchar(titulo), (MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)) = IDYES then
result := true
else
result := false;
end;
//mensaje de confirmación, con los botones Sí/No, devuelve True si se pulsa "Sí"
//el botón por defecto será "No"
function msSin (mensaje, titulo : String) : boolean;
begin
if application.MessageBox (pchar(mensaje),
pchar(titulo), (MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)) = IDYES then
result := true
else
result := false;
end;
Valora esta pregunta
0