Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Cursor 


Dimitriy   (2002-03-15 18:17) [0]

Очень хочу для своей программы сделать курсор, а т.к. в Delphi мне до аса далеко, то может сможет кто-то подсказать, как использовать курсор, заранее подготовленный в Имаж Эдиторе?



Nikolay   (2002-03-15 19:24) [1]

В своей программе находите строку
{$R *.DFM}
и под ней добавляете:
{$R MyRes.res}

пример из хелпа:

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 (.RC file) of the application. 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
1-90897           jenbond               2002-03-18 10:51  2002.03.28  
Помоги


14-91056          panov                 2002-02-12 09:05  2002.03.28  
Хорошо жить!


1-90866           baston                2002-03-16 19:15  2002.03.28  
Что представляет из себя компонент ValueListEditor и как с ним работать


1-90841           Alex_LG               2002-03-16 17:36  2002.03.28  
Где взять исходники модулей Forms, WinSock, Windows.... и др.?


1-90836           lipskiy               2002-03-15 15:23  2002.03.28  
TWebBrowser: как программно подсунуть ему ссылку на выполнение кода в самой программе?