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

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

Аватара для nik1967

Старожил


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

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


ROMKA-1977,
Скрытый текст

Код: Выделить весь код
[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[code]
var
  Page: TWizardPage;
  Test_pnl: TPanel;

procedure InitializeWizard();
begin
  Page:= CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');

  Test_pnl:= TPanel.Create(WizardForm);
  with Test_pnl do begin
    Top:= ScaleY(60);
    Width:= ScaleX(497);
    Height:= ScaleY(253);
    BevelOuter:= bvNone;
    Color:= clLime;
    ParentBackground:= false;
    Parent:= Page.Surface;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    Page.ID: MsgBox('Hello.', mbInformation, MB_OK);
  end;
end;

-------
Если сообщение оказалось полезным для Вас, то помимо спасибо, можно нажать на "Полезное сообщение".


Отправлено: 08:06, 25-04-2018 | #21