Bom dia
Eu crio um arquivo de recurso com o cursor e implemento o mesmo desta
maneira [o cursor e´ compilado com o programa, mas ainda precisa ser
extraído e deletado]. Se alguem conhece outra maneira que nao precise
salva-lo e depois
deletá-lo tambem gostaria de saber.
implementation
{$R *.DFM}
{$R cursors.RES}
const
CrNewCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_Cursor',
Pchar('anicursor'));
Res.SavetoFile('move.ani');
Res.Free;
Screen.Cursors[CrNewCursor] := LoadCursorFromFile('move.ani');
DeleteFile('move.ani');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Cursor := CrNewCursor;
end;
end.
----- Original Message -----
From: "Fabiano Yahoo" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 14, 2004 9:41 PM
Subject: [delphi-br] Cursor animado
> Ola lista
>
> como carregar um cursor animado ???
> Essa funcao aqui eu conheco
>
> Screen.Cursors[ MeuCursor ] :=LoadCursorFromFile('c:\cursor.ani' );
>
> eu queria sem ter que puxar o arquivo de fora,
> queria tipo compilado junto.
>
> Ate +
>
>
> ----- Original Message -----
> From: "Paulo Daniel Dorensbach" <[EMAIL PROTECTED]>
> To: "Grupo [delphi-br]" <[EMAIL PROTECTED]>
> Sent: Tuesday, September 14, 2004 8:01 PM
> Subject: [delphi-br] Erro com FreeandNil
>
>
> > Boa noite pessoal da lista.
> >
> > Estou mudando meus codigos antigos, que por motivo de falta de
> > conhecimento, fazia de forma errada, mas ja de cara me deparei com um
> erro.
> >
> > Estou usando o coigo abaixo para abrir um form, mas assim que abre, o
> > form ja é fechado, do da pra ver ele piscando na tela.
> >
> > form1 := Tform1.create(nil);
> > try
> > form1.show;
> > finally
> > FreeAndNil(form);
> > end;
> >
> > [ ]'s
> >
> > Paulo Daniel
> >
> > --
> > "Não me entrego sem lutar, tenho ainda coração
> > Não aprendi a me render, que caia o inimigo então..."
> > Metal contra as nuvens - Legião Urbana
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
