Цитата Farser21:
Нужно именно в отдельное окно. Чтобы только в этом окне появлялся текст. Не могли бы вы скинуть образец? »
|
Пример
Код:

{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
HintMemo: TNewMemo;
ComponentRadioButton: TNewRadioButton;
ComponentRadioButton2: TNewRadioButton;
procedure WizardBitmapImageMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer); forward;
procedure WizardBitmapImageMouseLeave(Sender: TObject); forward;
procedure ComponentRadioButtonClick(Sender: TObject); forward;
procedure ComponentRadioButtonMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer); forward;
procedure ComponentRadioButton2Click(Sender: TObject); forward;
procedure ComponentRadioButton2MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer); forward;
procedure RedesignWizardForm;
begin
with WizardForm.WizardBitmapImage do
begin
OnMouseMove := @WizardBitmapImageMouseMove;
OnMouseLeave := @WizardBitmapImageMouseLeave;
end;
with WizardForm.WelcomeLabel1 do
begin
Hint := 'Это установка программы на ваш ПК';
ParentShowHint := False;
ShowHint := True;
end;
{ HintMemo }
HintMemo := TNewMemo.Create(WizardForm);
with HintMemo do
begin
Name := 'HintMemo';
Parent := WizardForm.WelcomePage;
Left := ScaleX(344);
Top := ScaleY(192);
Width := ScaleX(145);
Height := ScaleY(105);
Lines.Text := 'HintMemo';
ReadOnly := True;
end;
{ ComponentRadioButton }
ComponentRadioButton := TNewRadioButton.Create(WizardForm);
with ComponentRadioButton do
begin
Name := 'ComponentRadioButton';
Parent := WizardForm.WelcomePage;
Left := ScaleX(176);
Top := ScaleY(192);
Width := ScaleX(113);
Height := ScaleY(17);
Caption := 'Компонент1';
Checked := True;
TabStop := True;
OnClick := @ComponentRadioButtonClick;
OnMouseMove := @ComponentRadioButtonMouseMove;
end;
{ ComponentRadioButton2 }
ComponentRadioButton2 := TNewRadioButton.Create(WizardForm);
with ComponentRadioButton2 do
begin
Name := 'ComponentRadioButton2';
Parent := WizardForm.WelcomePage;
Left := ScaleX(176);
Top := ScaleY(216);
Width := ScaleX(113);
Height := ScaleY(17);
Caption := 'Компонент 2';
OnClick := @ComponentRadioButton2Click;
OnMouseMove := @ComponentRadioButton2MouseMove;
end;
HintMemo.TabOrder := 2;
ComponentRadioButton.TabOrder := 3;
ComponentRadioButton2.TabOrder := 4;
{ ReservationBegin }
// Вы можете добавить ваш код здесь.
{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!
procedure WizardBitmapImageMouseLeave(Sender: TObject);
begin
HintMemo.Lines.Text := '';// убрали курсор мыши с изображения
end;
procedure WizardBitmapImageMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
HintMemo.Lines.Text := 'Посетить сайт или разместить свою рекламу'; //навели на изображение
end;
procedure ComponentRadioButton2MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
HintMemo.Lines.Text := 'Компонент 2 будет установлен на ПК, а также другие библиотеки'; //навели на Компонент 2
end;
procedure ComponentRadioButtonMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
begin
HintMemo.Lines.Text := 'Компонент 1 будет установлен на ПК'; // навели на Компонент 1
end;
procedure ComponentRadioButton2Click(Sender: TObject);
begin
HintMemo.Lines.Text := 'Компонент 2 будет установлен на ПК, а также другие библиотеки'; // выбор Компонента 2
end;
procedure ComponentRadioButtonClick(Sender: TObject);
begin
HintMemo.Lines.Text := 'Компонент 1 будет установлен на ПК'; // выбор Компонента 1
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
HintMemo.Lines.Text := ''; // очищаем перед запуском элемент Memo
end;
[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030109504000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D6167650B4F6E4D6F7573654D6F7665071A57697A6172644269746D6170496D6167654D6F7573654D6F76650C4F6E4D6F7573654C65617665071B57697A6172644269746D6170496D6167654D6F7573654C656176650000F10E544E6577537461746963546578740D57656C636F6D654C6162656C310448696E74143D000000D0ADD182D0BE20D183D181D182D0B0D0BDD0BED0B2D0BAD0B020D0BFD180D0BED0B3D180D0B0D0BCD0BCD18B20D0BDD0B020D0B2D0B0D18820D09FD09A0E506172656E7453686F7748696E74080853686F7748696E7409000008544E65774D656D6F0848696E744D656D6F044C65667403580103546F7003C0000557696474680391000648656967687402690D4C696E65732E537472696E677301060848696E744D656D6F0008526561644F6E6C7909085461624F72646572020200000F544E6577526164696F427574746F6E14436F6D706F6E656E74526164696F427574746F6E044C65667403B00003546F7003C00005576964746802710648656967687402110743617074696F6E1413000000D09AD0BED0BCD0BFD0BED0BDD0B5D0BDD1823107436865636B656409085461624F7264657202030754616253746F7009074F6E436C69636B0719436F6D706F6E656E74526164696F427574746F6E436C69636B0B4F6E4D6F7573654D6F7665071D436F6D706F6E656E74526164696F427574746F6E4D6F7573654D6F766500000F544E6577526164696F427574746F6E15436F6D706F6E656E74526164696F427574746F6E32044C65667403B00003546F7003D80005576964746802710648656967687402110743617074696F6E1414000000D09AD0BED0BCD0BFD0BED0BDD0B5D0BDD1822032085461624F726465720204074F6E436C69636B071A436F6D706F6E656E74526164696F427574746F6E32436C69636B0B4F6E4D6F7573654D6F7665071E436F6D706F6E656E74526164696F427574746F6E324D6F7573654D6F7665000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED00000000000000
Чтобы было нагляднее и понятнее, открой этот код в расширенной версии Inno ResTools и увидишь что и куда, я специально оставил секцию ISFormDesigner, дабы сам посмотрел.
Можно убрать действия для курсора мыши, чтобы не переполнять элементы. Для компонентов увидишь события- от этого можешь отталкиваться и писать свой код.
Цитата Ivan_009:
Кстати в обзоре папок ползунок не робит... »
|
Есть такое, не заметил даже. Надо разработчику скидывать баг-репорт или пилить самому).