Cita:
Empezado por jose001
y en los botones esto me digan "Todo,Solo puesto,Cancelar" y segun el boton que clikee realizar alguna accion
|
Pues mira, podrías crear tu propio cuadro de diálogo con un formulario y los botones exactos que deseas. O bien, usar este código para salir al paso:
Código Delphi
[-]
var
Dialog: TForm;
begin
Dialog := CreateMessageDialog(
'¿Desea eliminar todo el registro de este cliente o solo su puesto de trabajo?',
mtWarning,
[mbYes, mbNo, mbCancel]);
TButton(Dialog.Controls[2]).Caption := 'Todo';
TButton(Dialog.Controls[3]).Caption := 'Sólo puesto';
TButton(Dialog.Controls[4]).Caption := 'Cancelar';
try
case Dialog.ShowModal of
mrYes: ShowMessage('Escogió todo');
mrNo: ShowMessage('Escogió sólo puesto');
mrCancel: ShowMessage('Escogió cancelar');
end;
finally
Dialog.Free;
end;
end;
LineComment Saludos