Discussion :

[visualk]

bonjour
j'ai un problème
je veux que quand je clic sur le bouton DOWN ca affiche un label sinon quand je relâche il le cache
j'ai fait cela :

If (Etat[VK_DOWN]) Then
begin
label1.visible := true;
end;

ca marche mais le probleme c'est quand je relache je sais pas comment faire pour le stopper

Merci pour votre aide

[ShaiLeTroll]

OnKeyPress, OnKeyDown, OnKeyUp ?

[HKissinger]

au niveau des evenements du TForm1 tu insert deux procedures, OnKeyDown & OnKeyUp et tu rajoute les lignes de code suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DOWN then
  Label1.Visible := true;
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DOWN then
  Label1.Visible := false;
end;