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

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

Пользователь


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

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


vint56, А можно вот в этом скрипте вставить чтобы кнопки работали

[code]
Код: Выделить весь код
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  NewButton1: TNewButton;
  NewButton2: TNewButton;
  NewButton3: TNewButton;

procedure RedesignWizardForm;
begin
  with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(127);
  end;

  { NewButton1 }
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(312);
    Top := ScaleY(280);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Далее';
  end;

  { NewButton2 }
  NewButton2 := TNewButton.Create(WizardForm);
  with NewButton2 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(416);
    Top := ScaleY(280);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Отмена';
  end;

  { NewButton3 }
  NewButton3 := TNewButton.Create(WizardForm);
  with NewButton3 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(208);
    Top := ScaleY(280);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Назад';
  end;

  NewButton1.TabOrder := 2;
  NewButton2.TabOrder := 3;
  NewButton3.TabOrder := 4;

{ ReservationBegin }
  // Вы можете добавить ваш код здесь.

{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;
Или кто нибудь помогите пожалуйста.

Отправлено: 18:56, 08-10-2013 | #1214