Sampron
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору function ReleaseCapture: Longint; external 'ReleaseCapture@user32.dll stdcall'; procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(WizardForm.Handle,$0112,$F012,0); end; procedure InitializeWizard(); var Lbl: TLabel; begin Lbl := TLabel.Create(WizardForm); Lbl.SetBounds(WizardForm.WizardBitmapImage.Left, WizardForm.WizardBitmapImage.Top, WizardForm.WizardBitmapImage.Width, WizardForm.WizardBitmapImage.Height) Lbl.AutoSize := False Lbl.Transparent:=True Lbl.OnMouseDown := @LabelOnMouseDown Lbl.Parent := WizardForm.WizardBitmapImage.Parent; end; |