Вопрос Как создать форму для сообщений (isskin)?

  • Автор темы Автор темы Tjeyn
  • Дата начала Дата начала

Tjeyn

Новичок
Как создать форму для всех ошибок которые может выдать инсталлятор
Вот например к ним:
1.jpg 2.jpg
 
Хамик, вы не поняли!
Я создал свою форму через TSetupForm и кнопку "ОК" на ней!
Вопрос в том как отображать на ней сообщения ошибок?
 
Tjeyn,
Код:
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[code]
var
  NewButton1: TNewButton;

procedure okbtnclick(Sender: TObject);
begin
  if not FileExists(ExpandConstant('{src}\bum.bin')) then
  MsgBox('File is not exists!', mbError, MB_OK);
end;

procedure RedesignWizardForm;
begin
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Name := 'NewButton1';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(48);
    Top := ScaleY(216);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Ok';
    OnClick := @okbtnclick;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;
 
Хамик, не то!
это просто обычный MsgBox, а мне нужно на TSetupForm которая выскакивает вместо стандартного окна ошибок!
 
Tjeyn
Вы бы хотя бы свой код предоставили. А то мы еще и должны догадываться, как вы реализовали свою форму. Мы конечно за годы подобных вопросов развили некие экстрасенсорные способности, но проще и быстрее, если вы предоставите все необходимые файлы.
 
Tjeyn, все сообщения не отобразить на своей форме. это для IsSkin или зачем?
 
sergey3695, Да я бы с радостью скином воспользовался, но на каждом скине, какой бы он не был, всё портит заливка снизу! Возможно ли как-то решить эту проблему?
(на скрине обведено красным)!
 

Вложения

  • Без имени-1.png
    Без имени-1.png
    10.2 KB · Просмотры: 52
Tjeyn, неа. VclStyle используй, там пожалуй все норм, но скинов меньше гораздо.
 
ROMKA-1977, все ж ошибки не определить или слишком много условий их возникновения надо забивать, что муторно и порой нереально.
 
Назад
Сверху