delphi : bouton

Marsh Posté le 16-09-2004 à 10:12:50

Bonjour,
je voudrai savoir qu est ce qui faut faire pour qu' un bouton lorsqu on appuis longtemps dessus il s active en continue
par exemple :
lorsqu on a une liste deroulante
et que l on appuis longtemps
la liste defile de la ou on est au dernier
" le truc bac qui marche avec le bouton c le fait de passer d un element a un autre avec un clic" ...
quelqu un a une idée? merci

Reply

Marsh Posté le 16-09-2004 à 10:12:50

Reply

Marsh Posté le 16-09-2004 à 10:51:19

b alors personne c faire ca ? :??:

Reply

Marsh Posté le 16-09-2004 à 11:55:21

En jouant avec le onmousedown/onmouseup peut-être

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 16-09-2004 à 11:58:52

antp a écrit :

En jouant avec le onmousedown/onmouseup peut-être

tu as deja fait ? car moi g essayé et rien
j aurai cru que ca marcherai ... bouton enfoncé ou pas ..mais non...
pi etre que je me suis loupé?

Reply

Marsh Posté le 16-09-2004 à 12:03:54

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

Reply

Marsh Posté le 16-09-2004 à 14:04:33

g fait pas ton truc, l idee est bonne
mais ce qui est bizarre c que ca remonte jusqu au debut de la liste
en fait le relachement du bouton n est pas effectif au debut
il est effectif a la fin
car g vu que ca marchait le up grace a un showmessage...
donc je vois pas quoi faire
g essayé de mettre sleep...
mais non
ca veut pas :-(

Reply

delphi : bouton

Sujets relatifs:

Leave a Replay