Delphi dicas

Criando message box personalizado

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

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;

por : Francis Reiner