Vetal83
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Messages] BeveledLabel=GSC Game World [Code] var MouseLabel2,SiteLabel2: TLabel; procedure SiteLabelOnClick2(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://forum.ru-board.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode) end; procedure SiteLabelMouseDown2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SiteLabel2.Font.Color:=clRed end; procedure SiteLabelMouseUp2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SiteLabel2.Font.Color:=clBlue end; procedure SiteLabelMouseMove3(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin SiteLabel2.Font.Color:=clGreen end; procedure SiteLabelMouseMove4(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin SiteLabel2.Font.Color:=clBlue end; procedure InitializeWizard(); begin MouseLabel2:=TLabel.Create(WizardForm) MouseLabel2.Width:=WizardForm.Width MouseLabel2.Height:=WizardForm.Height MouseLabel2.Autosize:=False MouseLabel2.Transparent:=True MouseLabel2.OnMouseMove:=@SiteLabelMouseMove4 MouseLabel2.Parent:=WizardForm SiteLabel2:=TLabel.Create(WizardForm) SiteLabel2.Left:=3 SiteLabel2.Top:=0 SiteLabel2.Cursor:=crHand SiteLabel2.Font.Color:=clBlue SiteLabel2.Caption:=WizardForm.BeveledLabel.Caption SiteLabel2.OnClick:=@SiteLabelOnClick2 SiteLabel2.OnMouseDown:=@SiteLabelMouseDown2 SiteLabel2.OnMouseUp:=@SiteLabelMouseUp2 SiteLabel2.OnMouseMove:=@SiteLabelMouseMove3 SiteLabel2.Parent:=WizardForm.BeveledLabel WizardForm.BeveledLabel.Enabled:=True end; |