Delphi 7 : Rendre un form translucide PENDANT le run

Delphi 7 : Rendre un form translucide PENDANT le run - Delphi/Pascal - Programmation

Marsh Posté le 10-12-2002 à 03:56:12    

Code :
  1. procedure TFormSetAlpha.TrackBar1Change(Sender: TObject);
  2. var VaLeuR : byte;
  3. begin
  4.   mainprog.AlphaBlend := False;
  5.   valeur := trackbar1.Position;
  6.   mainprog.AlphaBlendValue := valeur;
  7.   mainprog.AlphaBlend := True;
  8. 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.

Reply

Marsh Posté le 10-12-2002 à 03:56:12   

Reply

Marsh Posté le 10-12-2002 à 07:11:57    

C'est correct j'ai trouvé... la propriété AlphaBlending est de type Byte alors que la barre est integer. J'ai résolu en changeant la barre par quelque chose d'autre  :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed