Discussion :

[Romainll93]

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 !

[Sub0]

Salut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Romainll93]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Sub0]

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

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

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