Code :
- procedure TFormSetAlpha.TrackBar1Change(Sender: TObject);
- var VaLeuR : byte;
- begin
- mainprog.AlphaBlend := False;
- valeur := trackbar1.Position;
- mainprog.AlphaBlendValue := valeur;
- mainprog.AlphaBlend := True;
- end;
|
Si je règle la propriété d'avance avant le Run, pas de problème. Cependant, j'ajoute un TrackBar et là ... marche pas la forme disparait.