vite fait mal fait :
Code :
- var
- up: Boolean = False;
- procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
- begin
- up := False;
- while not up do
- begin
- Memo1.Lines.Add('enfoncé');
- Application.ProcessMessages;
- end;
- end;
- procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
- begin
- up := True;
- Memo1.Lines.Add('up')
- end;
|
Tu peux éventuellement ajouter un Sleep ou un truc du genre pour ne pas que ça se répète trop souvent, mais ça fait vraiment bricolage.
Il y a sûrement moyen de gérer ça proprement, mais j'ai pas trop le temps de chercher là. Il faudrait voir comment font les autres composants qui utilisent un système similaire et qui ne passent pas par Windows.
Message édité par antp le 16-09-2004 à 12:04:59
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire