Código
// AlphaBlend e AlphaBlendValue do mesmo, portanto defina por exemplo
// como 150 o AlphaBlendValue e em um checkbox, coloque no onclick o
// codigo abaixo
procedure Tfrmexemplo.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then begin
frmexemplo.AlphaBlend := True;
end else
frmexemplo.AlphaBlend := False;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009