Genri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ANDROID Код: procedure InitializeWizard; begin NewCursor:= LoadCursorFromFile('C:\TEMP\pen_i.cur'); SetClassLong(WizardForm.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.NextButton.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.WelcomePage.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.WelcomeLabel1.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.LicenseMemo.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.DiskSpaceLabel.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.MainPanel.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.TypesCombo.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.ComponentsList.Handle, GCL_HCURSOR, NewCursor); SetClassLong(WizardForm.YesRadio.Handle, GCL_HCURSOR, NewCursor); end; | Это перекроет практически все. За исключением заголовка окна, месседжбоксов и полей типа TEdit. Если и там надо поменять, то еще SetClassLong(WizardForm.DirEdit.Handle, GCL_HCURSOR, NewCursor); |