segunda-feira, 23 de novembro de 2009

Cursor customizado

//Criar um arquivo de recurso com o cursor (vamos chamá-lo de teste.res)

//Vamos chamar o recurso de CUR_1

//Coloque {$R teste.res} na seção implementation



procedure InsereCursor(Num : Smallint);
begin
Screen.Cursors[Num]:= LoadCursor(hInstance, PChar('CUR_1'));
Screen.Cursor := Num;
end;

Nenhum comentário:

Postar um comentário