Ветеран
Сообщения: 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
|