Discussion :

[katassili]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
if (edit1.text='123') and (edit2.Text='123') then
begin
 
 form2.Show   ;
 form1.hide ;
 edit1.Clear ;
 edit2.Clear;
  end
  else
  label1.Caption:=('merci de verifier vos données svp');
//ce message reste comment le faire disparaître apres 3 ou 4 sec
  end;

[Charly910]

Bonjour,
je pense qu'il faudrait utiliser un Timer ou alors mettre un Sleep puis effacer le Caption (mais c'est bloquant).
A+
Charly

[katassili]

Bonjour,
je pense qu'il faudrait utiliser un Timer ou alors mettre un Sleep puis effacer le Caption (mais c'est bloquant).
A+
Charly

merci de votre repence mais je suis désoler je ne suis qu'un débutant le timer j'ai utiliser mais j'ai pas su comment m'est prendre

[sergio_is_back]

merci de votre repence mais je suis désoler je ne suis qu'un débutant le timer j'ai utiliser mais j'ai pas su comment m'est prendre

Je pense qu'une petite recherche Google : Delphi + TTimer sera suffisante

Et comme par hasard, on revient ici : https://www.developpez.net/forums/d2...isation-timer/ sur le forum Delphi, un topic qui en parle

Si tu es débutant, il y a aussi les Tutos sur developpez.com ici : https://delphi.developpez.com/cours/

C'est surement par là qu'il faudrait commencer, mais c'est fou ce que les jeunes ont du mal à lire de nos jours

[Charly910]

Bonjour,

regarde le Timer pour apprendre, mais tu peux essayer ceci qui est plus simple :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='123') and (edit2.Text='123') then
  begin
// form2.Show   ;
// form1.hide ;
    edit1.Clear ;
    edit2.Clear;
  end
else
  Begin
    label1.Caption := 'Merci de verifier vos données svp';
    Application.ProcessMessages  ;                               // redonne la "main" à Windows
    Sleep(2000) ;                    //  Attente 2secondes
    label1.Caption := '' ;
    Edit1.SetFocus ;                 // Donne le focus à Edit1
  end;
end;

A+
Charly

[ShaiLeTroll]

Il y a une démo horloge, si l'on peut changer le texte chaque seconde, le faire disparaître semble simple

Etape 3 - Utilisation de TTimer pour actualiser TClockLabel à chaque seconde

Cette démo inclue le TTimer dans le TLabel, on pourrait donc facilement créer un TTemporaryLabel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TTemporaryLabel = class(TLabel)
  private
    FTimer: TTimer;
    FTimeOut: Integer;
    procedure OnTimer(Sender: TObject);
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy(); override;
 
    property TimeOut: Integer read FTimeOut write FTimeOut;
  end;

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
28
29
30
31
32
33
34
35
constructor TTemporaryLabel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
 
  FTimeOut := 2000;
 
  if not (csDesigning in ComponentState) then
  begin
    FTimer := TTimer.Create(AOwner);
    FTimer.OnTimer := OnTimer;
    FTimer.Interval := FTimeOut;
    FTimer.Enabled := False;
  end;
end;
 
destructor TTemporaryLabel.Destroy();
begin
  FreeAndNil(FTimer);
 
  inherited Destroy();
end;
 
procedure TTemporaryLabel.OnTimer(Sender: TObject);
begin
  FTimer.Enabled := False;
  Visible := False;
end;
 
procedure TTemporaryLabel.CMTextChanged(var Message: TMessage);
begin
  FTimer.Enabled := True;
  Visible := True;
 
  inherited;
end;

Utilisation à l'arrache

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTemporaryLabel.Create(Self)do
  begin
    Parent := Button1.Parent;
    Left := Button1.Left + Button1.Width;
    Top := Button1.Top;
    Caption := 'Toto';
  end;
end;

Enfin

Ne garde pas Form1, Form2, Edit1, Edit2 ... pense à renommer tes composants, c'est bien pour une démo vite fait mais pour un projet sérieux, pense à tout renommer avec un nom métier par exemple MainForm, DetailAdressForm, edName, edRue, edVille ou lblWarning ...

[katassili]

Bonjour,

regarde le Timer pour apprendre, mais tu peux essayer ceci qui est plus simple :

j'ai fait qlqs applications avec le timer et c'est pas compliqué
svp // redonne la "main" à Windows ça signifie quoi ???

Code :

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

1
2
3
4
    Application.ProcessMessages  ;                               // redonne la "main" à Windows
    Sleep(2000) ;                    //  Attente 2secondes
    label1.Caption := '' ;
    Edit1.SetFocus ;                 // Donne le focus à Edit1

un grand merci pour votre aide A+