товарищи,подскажите как можно изменять или затекстурировать этот MsgBox??


Последнее редактирование:
Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
товарищи,подскажите как можно изменять или затекстурировать этот MsgBox??
Либо скинировать через ISSkin или AlphaSkins (но это со всей формой), либо вместо месседжбокса создавать формутоварищи,подскажите как можно изменять или затекстурировать этот MsgBox??
var:
PopupForm: TForm;
AboutLabel: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);
begin
PopupForm.Close;
end;
procedure AboutButtonClick(Sender: TObject); //Нажатие на твою кнопку на WizardForm'e
begin
PopupForm:=TForm.Create(WizardForm);
with PopupForm do
begin
ClientHeight:=150;
ClientWidth:=300;
Caption:='Установка';
BorderStyle:=bsSingle;
BorderIcons:=[biSystemMenu];
Position:=poScreenCenter;
ShowModal;
end;
AboutLabel:=TLabel.Create(PopupForm);
with AboutLabel do
begin
Caption:='Особенности RePack''a:'+#13#10+ //Два апострофа, потому что студия читает один как ограничитель.
'Удалено:'+#13#10+
' Лого разрабов'+#13#10+
' Все языки кроме Английской озвучки'+#13#10+
'Установлены все Update''ы на момент релиза'+#13#10+
'Вшито 9 DLC'+#13#10+
'Вшит русификатор текста от ZoG 1.0.4';
Parent:=PopupForm;
Left:=(PopupForm.ClientWidth-AboutLabel.Width)/2
Top:=10;
WordWrap:=True;
Transparent:=True;
end;
OKButton:=TButton.Create(PopupForm);
with OKButton do
begin
Caption:='OK';
Parent:=PopupForm;
Width:=80;
Height:=34;
Top:=AboutLabel.Top+10;
Left:=PopupForm.ClientWidth-OKButton.Width-10;
OnClick:=@OKButtonClick;
end;
PopupForm.Height:=OKButton.Top+OKButtonHeight+10; //Изменим форму так, чтобы от кнопки до нижнего края было 10 пкс
end;
Source: "{app}\erty_bass.dll"; DestDir: "{app}"; DestName: "bass.dll";
[Files]
Source: "{app}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "{app}\erty_bass.dll"; DestDir: "{app}"; DestName: "bass.dll";
Source: "d:\Install\app\app.dll"; DestDir: "{app}"; Check: "not IsWin64"; Flags: restartreplace;