Bonjour je suis en train de programmer un soft pour les ports parallele. Je souhaite visualiser l'état des broches par le biais d'une image. Or lorsque que je fait appel à :
image8.Visible := false;
image27.Visible := true;
les images ne changent qu'après le Sleep alors qu'il est placé apres. Pourquoi ?
merci @+++

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
procedure TForm1.Button1Click(Sender: TObject);
var
t : integer;
begin
image8.Visible := false;
image27.Visible := true;
//conversion de la boite de temps qui est une variable de type string en
//variable de type integer.
t := StrToInt(Edit1.Text);
//si le temps est en seconde alors il est converti en ms.
if (statut = true)
then
t := t*1000;
Memo1.Lines.Add('Port : 378');
Memo1.Lines.Add('Decimal : 1');
Memo1.Lines.Add('Hexadecimal : 01');
Memo1.Lines.Add('Binaire : 00000001');
//passage à l'état logique 1 du port 0
PortOut(888,1);
//on marque une pause égale au temps rentré par l'utilisateur
Sleep(t);
//on remet toutes les broches à l'état logique 0.
PortOut(888,0);
end;