Discussion :

[cocot]

Bonjour.
Je cherche comment faire un menu comme sa


j'ai utilise sa:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form1.Height >= 590 then
begin
timer1.enabled := false;
Image4.Tag := 1 ;
BoutonAutoChange4.Tag := 1;
Image4.Picture.Bitmap.assign(Image6.Picture.Bitmap);
BoutonAutochange4.Picture.Bitmap.Assign(Image7.Picture.Bitmap);
end
else
begin
Form1.height := Form1.height + 2;
end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Form1.Height <= 525 then
begin
timer2.enabled := false;
Image4.Picture.Bitmap.assign(Image5.Picture.Bitmap);
BoutonAutochange4.Picture.Bitmap.Assign(Image8.Picture.Bitmap);
BoutonAutoChange4.Tag := 0;
Image4.Tag := 0 ;
end
else
begin
Form1.height := Form1.height - 2;
end;

end;

Je veux faire que quand je clique sur le boutton et que a la fin de ouverture de menu sa me change image.?

[evarisnea]

personnellement, je n'ai rien compris à ce que tu demandes. pourrais-tu être plus précis ?

[Matt2094]

Si j'ai bien compris, tu souhaite personnaliser l'apparence d'un menu déroulant. C'est ça ?

[cocot]

Si j'ai bien compris, tu souhaite personnaliser l'apparence d'un menu déroulant. C'est ça ?

Oui en fait je veux faire un menu déroulant de gauche a droite. pouvez vous m'aider car avec le code quej'ai utilise j'arrive pas... merci

[evarisnea]

oups, désolé, lorsque j'ai regardé ton post la dernière fois mon navigateur n'a pas affiché l'image

Oui en fait je veux faire un menu déroulant de gauche a droite. pouvez vous m'aider car avec le code quej'ai utilise j'arrive pas... merci

essaie d'utiliser la fonction AnimateWindow de l'API win$32, ca pourraitrésoudre ton souci