[dracosha]

Всем привет!
Небольшой вопрос:
Что в этом коде нужно изменить:

читать дальше »

[code]

Код:

// Домашняя страничка
procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', '{#MyAppURL}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
procedure InitializeWizard();
var
  URLLabel: TNewStaticText;
begin
  URLLabel := TNewStaticText.Create(WizardForm);
  URLLabel.Caption := 'Homepage';
  URLLabel.Cursor := crHand;
  URLLabel.OnClick := @URLLabelOnClick;
  URLLabel.Parent := WizardForm;
 { URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];}
  URLLabel.Font.Color := $646464;
  URLLabel.Top := 330;
  URLLabel.Left := 40;
  end;

что бы при наведении мышки на URLLabel, она становилась подчеркнутой и менялась на другой цвет?