Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Dodakaedr:
Задача: не показывать чекбокс если оперативная система XP. »
Dodakaedr,
Код: Выделить весь код
var
    Taskbar: TCheckBox;

procedure TaskbarCreate;
begin
    Taskbar := TCheckBox.Create(WizardForm);
    with Taskbar do
    begin
        Parent := WizardForm.WelcomePage;
        SetBounds(ScaleX(185), ScaleY(251), ScaleX(104), ScaleY(15));
        Caption := 'Раздача';
        Visible := (GetWindowsVersion > $06000000);
    end;
end;

///////////////////////////
procedure InitializeWizard;
begin
    TaskbarCreate;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 09:25, 08-04-2015 | #442