Ver Mensaje Individual
  #7  
Antiguo 17-01-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por delphi.com.ar
Peculiarmente MessageDlg si pertenece a la VCL, internamente no hace mas que crear un TForm con el formato específico
Llevas razón,

Cita:
Empezado por delphi.com.ar
Lo que no quita que sea mucho mas complejo alterar su comportamiento
Todo lo contrario, es mucho más fácil:

Código Delphi [-]
var
  Form: TForm;
  Button: TButton;

begin
  Form := CreateMessageDialog('¿Sí o no?', mtWarning, [mbYes, mbNo]);

  Button := TButton.Create(Form);
  Button.Parent := Form;
  Button.Default := true;
  Button.Top := Form.Height;
  Form.ActiveControl := Button;

  with Form do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;



EDITO:

Niños, estas cosas no las hagan en casa ¿eeeeh?

// Saludos

Última edición por roman fecha: 17-01-2006 a las 21:53:41.
Responder Con Cita