Вопрос Изменение лого при наведении курсора

[tihiy_don]

Получилось, но теперь весь текст описания на странице приветствия не отображается. Пробовал засунуть создание компонентов текста повыше создания картинки, но не помогло.
Плюс добавил ещё картинку на странице финиша по вашему примеру, также там пропал текст. Кнопки видны.

Спойлер: Пример:

таким образом я создал текст:

Finished1:= TLabel.Create(WizardForm)
  with Finished1 do begin
  AutoSize:=False;
  SetBounds(ScaleX(-25), ScaleY(230), ScaleX(550), ScaleY(70));
  WordWrap:=True;
  Alignment := taCenter;
  Transparent:=True;
  Font.Name:='Arial';
  Font.Size:= 12;
  Font.Color:=$FFFFFF;
  Font.Style:=[fsBold];
  Caption:= ExpandConstant('{cm:Finished1}');
  Parent:=WizardForm.FinishedPage;
  end;

  FinishedLabel:= TLabel.Create(WizardForm)
  with FinishedLabel do begin
  AutoSize:=False;
  SetBounds(ScaleX(-25), ScaleY(270), ScaleX(550), ScaleY(100));
  WordWrap:=True;
  Alignment := taCenter;
  Transparent:=True;
  Font.Name:='Arial';
  Font.Size:= 8;
  Font.Color:=$FFFFFF;
  Caption:= ExpandConstant('{cm:Finished2}');
  Parent:=WizardForm.FinishedPage;
  end;

 

[sergey3695]

@tihiy_don,

Спойлер

procedure InitializeWizard();
begin
  Finished1.Parent:= WizardForm;
  FinishedLabel.Parent:= WizardForm;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  Finished1.Hide;
  FinishedLabel.Hide;
if CurPageID=wpWelcome then
begin
  Finished1.Show;
  FinishedLabel.Show;
end;
end;

 

[tihiy_don]

@sergey3695, Разобрался, спасибо. Сначала подумал, какого хрена у меня все надписи идут сразу и с финишной и со страницы приветствия, а потом дошло что условие стояло на "if (CurPageID=wpWelcome) or (CurPageID=wpFinished) then begin..."