maison
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Comment puis-je charger mon curseur dans un dauphin! Trouver des branches similaires


Delphi5.01   (2001-11-05 06:56) [0]

К сожалению у меня не получилось. Обясню по подробности что я делал: Во первых в ImageEditor создал resource file потом появилось окошко и надпись Contents Я нажал правой кнопкой на этой надписи и появилось меню, я выбрал New - Cursor, после появилось акно с редактором курсора я там нарисовал курсор (и изменил название курсора на VIT). А ресурсни фаил сохранил под именем cur.res

Потом в делфи после {$R *.dfm} написал
{$R cur.res}

OnCreate написал то что ты мне посаветовал а именно
ScreenCursors[1]:=LoadCursor(HInstance, "VIT");
ScreenCursors[1] оказался типом HCURSOR я его и поместил в
Chaque
ScreenCursors[1] : HCURSOR;
После этого дельфи не ругался но операция form1.cursor:=1; ни поизвела никаких изменений. Пожалуйста обясни где я допутил ошибку



Evgeny   (2001-11-05 07:27) [1]

Вот кусок из моей программы, все это работает:

{$R Capture4.Res}

procedure TForm4.FormCreate (Sender: TObject);
const
crBox = -19;
commencer
Screen.Cursors[crBox] := LoadCursor(hInstance, pChar("CURSOR_2"));
Cursor := crBox;
fin;



Pages: 1 branche entière

Forum: "WinAPI";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.81 MB
Heure: 0.044 c
6-22307
Leviathan
2001-10-12 12:54
2002.01.08
NMFTP est nul !!!!


3-21981
Termik
2001-12-06 08:22
2002.01.08
A propos des champs clés et de l'IDENTITE


14-22395
Étranger
2001-11-07 01:15
2002.01.08
Quel désordre est différent de la commande?


7-22437
Paradoxe
2001-09-25 18:48
2002.01.08
wav


14-22364
Merlin
2001-11-06 00:22
2002.01.08
Si vous ne sauvez pas, alors ce sera parti!





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol