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

Tjeyn

Новичок
Как создать форму для всех ошибок которые может выдать инсталлятор
Вот например к ним:
1.jpg 2.jpg
 

Tjeyn

Новичок
Хамик, вы не поняли!
Я создал свою форму через 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;
 

Tjeyn

Новичок
Хамик, не то!
это просто обычный MsgBox, а мне нужно на TSetupForm которая выскакивает вместо стандартного окна ошибок!
 

Shegorat

Lord of Madness
Администратор
Tjeyn
Вы бы хотя бы свой код предоставили. А то мы еще и должны догадываться, как вы реализовали свою форму. Мы конечно за годы подобных вопросов развили некие экстрасенсорные способности, но проще и быстрее, если вы предоставите все необходимые файлы.
 

sergey3695

Ветеран
Модератор
Tjeyn, все сообщения не отобразить на своей форме. это для IsSkin или зачем?
 

Tjeyn

Новичок
sergey3695, Да я бы с радостью скином воспользовался, но на каждом скине, какой бы он не был, всё портит заливка снизу! Возможно ли как-то решить эту проблему?
(на скрине обведено красным)!
 

Вложения

sergey3695

Ветеран
Модератор
Tjeyn, неа. VclStyle используй, там пожалуй все норм, но скинов меньше гораздо.
 

sergey3695

Ветеран
Модератор
ROMKA-1977, все ж ошибки не определить или слишком много условий их возникновения надо забивать, что муторно и порой нереально.
 
Сверху