Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


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

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


Цитата duxa:
Не подскажите как сделать окно инсталлятора поверх всех остальных? »
Пример

Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
procedure btnClick(Sender: TObject);
begin
  case WizardForm.FormStyle of
    fsNormal:
      begin
        WizardForm.FormStyle := fsStayOnTop;
        TButton(Sender).Caption := 'Отменить стиль StayOnTop';
      end;
    fsStayOnTop:
      begin
        WizardForm.FormStyle := fsNormal;
        TButton(Sender).Caption := 'Задать стиль StayOnTop';
      end;
  end;
end;

procedure InitializeWizard();
begin
  with TButton.Create(WizardForm) do
    begin
      Parent := WizardForm;
      SetBounds(ScaleX(20), WizardForm.NextButton.Top, ScaleX(200), WizardForm.NextButton.Height);
      Caption := 'Задать стиль StayOnTop';
      OnClick := @btnClick;
    end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  // это необходимо, а то при ножатии на кнопку, мы не увидим сообщения
  if WizardForm.FormStyle = fsStayOnTop then
    WizardForm.FormStyle := fsNormal;
end;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:26, 06-03-2011 | #1031