Fórum Como incluir o ícone da quot;mãozinhaquot; do IE no delphi #289492
26/07/2005
0
a pergunta é, como incluir a ´mãozinha´ q aparece no Internet explorer no delphi???
Duolon
Curtir tópico
+ 0Posts
26/07/2005
Duolon
Gostei + 0
27/07/2005
Guilherme
si for é so vc mudar a probriedade cursor para crHandPoint
espero ter ajudado !!!!!
Gostei + 0
27/07/2005
Michael
Primeiro vc extrai o cursor do Internet Explorer com algum programa visualizador de arquivos de recursos, como o ResExplorer que vem com o Delphi. Depois vc salva este cursor como um arquivo no disco, ou o coloca em um arquivo de recurso da sua aplicação, e o carrega com [b:912c74241c]LoadCursor[/b:912c74241c], ou [b:912c74241c]LoadCursorFromFile[/b:912c74241c].
[]´s
Gostei + 0
27/07/2005
Michael
Se não for, a saída é vc desenhá-lo na mão mesmo.
[]´s
Gostei + 0
27/07/2005
Duolon
Onde q tem o LoadCursor, ou LoadCursorFromFile pra mim carregar a imagem do ícone??? pra capturar o cursos vou usar um printscreem e colar no paint e salvar como .cur ou .ico
Gostei + 0
27/07/2005
Michael
[b:09937b483d]LoadCursor [/b:09937b483d]e [b:09937b483d]LoadCursorFromFile [/b:09937b483d]são funções da API do Windows. Logo, basta adicionar a unit Windows à sua cláusula [b:09937b483d]uses[/b:09937b483d].
Quanto a usar PrintScreen para capturar a imagem do cursor, eu acho que não vai dar certo. Até onde eu sei, essa tecla salva a imagem da tela na área de transferência, mas SEM o cursor.
Use o ResExplorer q é mais fácil.
[]´s
Gostei + 0
27/07/2005
Duolon
Cara é q eu sou bem iniciante no delphi, como eu faço isso?
e se tem razão quanto ao printscreem.. ele ñ captura o mouse..
Gostei + 0
27/07/2005
Duolon
Gostei + 0
28/07/2005
Duolon
Gostei + 0
28/07/2005
Adriano Santos
const crSeuCursor = 1; // Tem que ser um valor maior que 0 (zero) procedure TForm1.FormCreate(Sender: TObject); begin Screen.Cursors [crSeuCursor] := LoadCursorFromFile (´c:\winnt\cursors\harrow.cur´); // O cursor pode ser dos tipos comum (*.cur) ou animado (*.ani) // Lembre-se: o arquivo tem que estar na mesma pasta do programa // ou digite o nome do caminho dele. end; procedure TForm1.FormShow(Sender: TObject); begin Form1.Cursor := crSeuCursor; end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)