Как можно загрузить свой курсор в дельфи! [D5, Win95/98]
Delphi5.01 © (2001-11-05 06:56:00)
К сожалению у меня не получилось. Обясню по подробности что я
делал: Во первых в ImageEditor создал resource file потом появилось
окошко и надпись Contents Я нажал правой кнопкой на этой надписи и
появилось меню, я выбрал New - Cursor, после появилось акно с
редактором курсора я там нарисовал курсор (и изменил название
курсора на VIT). А ресурсни фаил сохранил под именем cur.res
Потом в делфи после {$R *.dfm} написал
{$R cur.res}
OnCreate написал то что ты мне посаветовал а именно
ScreenCursors[1]:=LoadCursor(HInstance, "VIT");
ScreenCursors[1] оказался типом HCURSOR я его и поместил в
Var
ScreenCursors[1] : HCURSOR;
После этого дельфи не ругался но операция form1.cursor:=1; ни
поизвела никаких изменений. Пожалуйста обясни где я допутил
ошибку
Evgeny (2001-11-05 07:27:00) [1]
Вот кусок из моей программы, все это работает:
{$R Capture4.Res}
procedure TForm4.FormCreate(Sender: TObject);
const
crBox = -19;
begin
Screen.Cursors[crBox] := LoadCursor(hInstance,
pChar("CURSOR_2"));
Cursor := crBox;
end;
Наверх 
ЧАТ |
Орешник |
|
