//coloque as imagens em um arquivo Res e compile a biblioteca com a diretiva
{$R icones.res}
//para chamar as imagens
var
Hicone: Thandle;
begin
Hicone:= LoadLibrary(‘icones.dll’);
Componente.Glyph.Handle := LoadBitmap(Hicone,’B_CANCELAR’);
Compartilhe :Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf…
Compartilhe :O Objeto Clipboard é uma referência à Área de transferência, vejamos como utiliza-lo: Clipboard.gettext Este comando retorna o conteúdo da…