Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 1133
Благодарности: 581

Профиль | Отправить PM | Цитировать


Цитата _Monster_:
что нужно добавить чтобы по нажатию на эту картину перенапрвляло на какой-нибудь сайт »
Пример
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
procedure imgClick(Sender: TObject);
var
  res: Integer;
begin
  ShellExec('open', 'http://forum.oszone.net', '', '', SW_SHOWNORMAL, ewNoWait, res);
end;

procedure initializeWizard();
begin
  // рисунок в левом нижнем углу
  with TBitmapImage.Create(WizardForm) do
    begin
      Bitmap:= WizardForm.WizardSmallBitmapImage.Bitmap;
      SetBounds(0, 315, 200, 48);
      Parent:= WizardForm;
      Stretch:= True;
    end;
  // создаём Label, на который вешаем ссылку
  with TLabel.Create(WizardForm) do
    begin
      AutoSize:= False;
      SetBounds(0, 315, 200, 48);
      OnClick:= @imgClick;
      Cursor:= crHand;
      Transparent:= True;
      Parent:= WizardForm;
    end;
end;


Упс... не успел, извиняюсь за повтор.

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:34, 22-09-2009 | #144