Image avec deux fonctions OnIDblClick

Version imprimable

25/02/2007, 01h25
Romainll93

Image avec deux fonctions OnIDblClick

Bonjour à tous !

Je suis débutant en programmation avec le language Delphi 2005 et je voudrais savoir comment faire pour mettre deux fonction avec un seule évènement OnDblClick pour un Timage ?
En fait j'ai un Timage et je voudrais que quand je double clique dessus ma form se mette en pleine écran et quand je double click sur mon Timage une dexième fois ma form quitte le mode plein écran.

Voilà merci d'avance !
Au revoir !

Salut.

Code:

1
2
3
4
5
6
7
Procedure TForm1.Image1DblClick(Sender: TObject); 
Begin
  With Form1 Do
    If (WindowState = WsMinimized) Then 
      WindowState := WsMaximized Else
      WindowState := WsMinimized;
End;

Cela te convient-il ?

Boujour,

Merci pour la réponse pour ma question, sa marche très bien sauf qu'il n'y a pas deux évènements: Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 procedure TForm1.Image17DblClick(Sender: TObject); begin With Form1 Do If (WindowState = WsNormal) Then WindowState := WsMaximized Else WindowState := WsNormal; Form1.Top:=0; Form1.Left:=0; Form1.Width:=Screen.Width; Form1.Height:=Screen.Height; Form1.BorderStyle:=bsNone; If Form1.WindowState := WsNormal Then Begin Image1.Width := Form1.ClientWidth +1 ; Image1.Top := Form1.ClientHeight -29; Image2.Top := Form1.ClientHeight -29; Panel1.Top := Form1.ClientHeight -524 - 30; Image17.height := Form1.ClientHeight; Image17.Width := Form1.ClientWidth +4; Form1.Height:=698; Form1.Width:=973; Form1.BorderStyle:=bsSizeable; end; end;
En faite je me suis peut être mal exprimer.
je voudrait que quand je clique une fois la form se mette en WsMaximized et quand je reclique une deuxième fois elle revienne en WsNormal avec mes avec mes réglages pour le redimmensionnement. voilà j'espère que c'est plus claire.

merci d'avance !
A Bientot !

25/02/2007, 14h17
Sub0

http://club.developpez.com/regles/#L3.4

Citation:

je voudrait que quand je clique une fois la form...

Il faut utiliser l'evénement OnMouseDown plutôt que OnDblClick dans ce cas.