Mega Code Archive

 

Categories / Delphi / Examples

 

Delphide renkli cursor kullanımı

delphide renkli cursor kullanmak için aşağıdakileri aynen uygulayın. bir dosya editörüne bunları yazın kursorum cursor "star.cur" sonra bu dosyayı kursor.rc adıyla kaydedin. sonra dos ortamından brcc32 kursor.rc yazıp enter tuşuna basın. eğer bir yanlışlık yapmadıysanız kursor.res adında bir dosya oluşacak. sonra delphiye geçip şu kodları yazın: {$R *.DFM} {$R kursor.res} procedure TFmMain.FormCreate(Sender: TObject); begin screen.cursors[1]:=LoadCursor(HINSTANCE,makeintresource('kursorum')); screen.cursor:=1; end;