Código
//1º crie um edite no formulario
//2º coloque o seguinte comando no edit em KeyDown
{nesta linha vc dis quando de transparencia quer vai de 1 mais tranparente ate 255 sem transparencia }
if key=vk_return then begin
Form1.AlphaBlendValue := StrToInt(Edit1.Text);
Edit1.Text := '';
end;
//3º coloque em OnCreate
{nesta linha vc abilita o formulario ficar transparente}
Form1.AlphaBlend := True;
//e é so compilar
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009