Club Delphi,
Revisen este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
TaskDialog : TTaskDialog;
i : Byte;
begin
TaskDialog := TTaskDialog.Create(Self);
try
TaskDialog.Caption := 'TaskDialog with ProgressBar y RadioButtons';
TaskDialog.Title := 'Test de TaskDialog';
TaskDialog.Text := 'Este es un ejemplo de ProgressBar Infinito y RadioButtons dentro de un TaskDialog en Delphi XE7';
TaskDialog.CommonButtons := [tcbOk, tcbCancel];
for i := 1 to 3 do
with TaskDialog.RadioButtons.Add do
Caption := 'Opción ' + IntToStr(i);
TaskDialog.ModalResult := mrOk;
TaskDialog.Flags := [tfAllowDialogCancellation, tfExpandFooterArea, tfShowMarqueeProgressBar];
TaskDialog.ExpandButtonCaption := 'Información Técnica';
TaskDialog.ExpandedText := 'Este es el espacio utilizado para colocar información complementaria al TaskDialog';
TaskDialog.ProgressBar.MarqueeSpeed := 10;
if TaskDialog.Execute then
if TaskDialog.ModalResult = mrOk then
TaskMessageDlg('Opción Seleccionada', Format('Se seleccione la opción %d', [TaskDialog.RadioButton.Index + 1]),
mtInformation, [mbOK], 0);
finally
TaskDialog.Free;
end;
end;
end.
El código anterior en Delphi XE7 sobre Windows 7 Professional x32,
Implementa un TTaskDialog con un Progressbar Infinito y RadioButtons, como se muestra en la siguiente imagen:
Información relacionada:
Espero sea útil
Nelson.