.Icon := nil;
> ImageList1.GetIcon(0, Application.Icon);end;
>
> Sds.
>
> To: [EMAIL PROTECTED] :
> [EMAIL PROTECTED] : Thu, 13 Dec
> 2007 22:44:37 -0300Subject: Re: [delphi-br] Trocar o ícone do sistema em
> execução
>
> Olá Ricardo,Se vc esta pensando em trocar o Icone d
Olá Ricardo,
Se vc esta pensando em trocar o Icone do Formulário a dica é a seguinte:
Use um ImageList com 2 icones e trate a troca do mesmo da forma abaixo
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Icon := nil;
ImageList1.GetIcon(1,Self.Icon);
end;
procedure TForm1.Button2Cl
2 matches
Mail list logo