Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Указатель   Найти похожие ветки 

 
Ivolg ©   (2004-03-29 09:35) [0]

Здрасьте! Знаю что это вопрос я уже задовал но я потеря код! Как монжно у своего приложения зделать свой укозатель мыши!


 
Ivolg ©   (2004-03-29 09:35) [0]

Здрасьте! Знаю что это вопрос я уже задовал но я потеря код! Как монжно у своего приложения зделать свой укозатель мыши!


 
Юрий Зотов ©   (2004-03-29 10:27) [1]

См. в справке TScreen.Cursors. Там и пример есть.


 
Юрий Зотов ©   (2004-03-29 10:27) [1]

См. в справке TScreen.Cursors. Там и пример есть.


 
Ivolg ©   (2004-03-29 11:11) [2]

Юрий Зотов

Чтото не нашёл! Кинь свой приммер или из справки который ты нашёл! Плиз!


 
Ivolg ©   (2004-03-29 11:11) [2]

Юрий Зотов

Чтото не нашёл! Кинь свой приммер или из справки который ты нашёл! Плиз!


 
Diamond Cat ©   (2004-03-29 12:21) [3]

Screen.Cursor := crHourglass;


 
Diamond Cat ©   (2004-03-29 12:21) [3]

Screen.Cursor := crHourglass;


 
Юрий Зотов ©   (2004-03-30 16:12) [4]

This example shows how to add custom cursors to an application.  It assumes that a custom cursor with the name NewCursor has been added to the resources (.RES file) of the application. You can add the cursor using the image editor. (Tools | Image Editor)
The following code makes this cursor available to the application via the constant crMyCursor, and sets it as the global cursor to the application.

const
 crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
 Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "NewCursor");
 Cursor := crMyCursor;
end;


 
Юрий Зотов ©   (2004-03-30 16:12) [4]

This example shows how to add custom cursors to an application.  It assumes that a custom cursor with the name NewCursor has been added to the resources (.RES file) of the application. You can add the cursor using the image editor. (Tools | Image Editor)
The following code makes this cursor available to the application via the constant crMyCursor, and sets it as the global cursor to the application.

const
 crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
 Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "NewCursor");
 Cursor := crMyCursor;
end;



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.036 c
9-1070561177
Omar2002
2003-12-04 21:06
2004.05.09
Батл нет в своей игре!


11-1066745911
puky
2003-10-21 18:18
2004.05.09
MHXPStyle + D5


4-1079099581
DennisLNC
2004-03-12 16:53
2004.05.09
Прокрутка в ListView


7-1079601806
Ангел
2004-03-18 12:23
2004.05.09
Нужна помощь по работе с ККМ из Delphi


3-1081396835
Серж
2004-04-08 08:00
2004.05.09
Как округлить число в процедуре Interbase?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский