Buscar por:

Criando message box personalizado

Código

=======================================

                   Personalize suas messages boxes

=======================================

procedure TfrmMain.FormCreate(Sender: TObject);

var AMsgDialog: TForm;

    ARadio: TRadioGroup;

begin

  AMsgDialog := CreateMessageDialog('Informe Opção', mtConfirmation,

                [mbOK, mbCancel]);

  ARadio := TRadioGroup.Create(AMsgDialog);

  with AMsgDialog do

  try

    Caption := 'Minha Caixa de Diálogo Personalizada';

    Height := 180;

    Width := 220;

    Position:= poDesktopCenter;

    with ARadio do

    begin

      Parent := AMsgDialog;

      Top := 90;

      Height:= 60;

      Width:= 133;

      Left := 45;

      Items.Add('Eu sou Lindo');

      Items.Add('Eu sou Mais Lindo');

      ItemIndex:= 0;

    end;

    case ShowModal of

      ID_OK: begin

                  //todo: faça alguma coisa aqui

                  end;

      ID_CANCEL: Application.Terminate;

    end;

  finally

    ARadio.Free;

    Free; 

  end;

end;