Essaye ceci
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (GetAsyncKeyState(VK_SHIFT) and $8000) <> 0 then
Label1.caption:='Shift +'+Label2.Caption;
end;
Il faut que...
Type: Messages; Utilisateur: ShaiLeTroll
Essaye ceci
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (GetAsyncKeyState(VK_SHIFT) and $8000) <> 0 then
Label1.caption:='Shift +'+Label2.Caption;
end;
Il faut que...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.