Форум: "Система";
Текущий архив: 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.039 c
