Discussion :

[pascal07]

Bonjour à tous

sur ma fiche, j'ai plusieurs TEdit que l'utilisateur peut donc remplir.

Je dois savoir dans quelle TEdit est le caret, pour différencier l'action d'un bouton.

Comment savoir dans quelle TEDit est le caret ? ( peut m'importe la position précise du caret dans le TEdit ...)

Merci par avance , Pascal

[Papy214]

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
 
 
procedure ControlChange(Sender: TObject);
 
...
 
procedure TForm5.ControlChange(Sender: TObject);
begin
  Caption := ActiveControl.Name;
end;
 
procedure TForm5.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := controlChange;
end;

[pascal07]

Bonsoir

ça ne fonctionne pas.

ActiveControl.Name de la form me retourne le nom du bouton sur lequel je clique, et non le TEdit dans le lequel le caret est présent.

Autre piste ?

Merci, Pascal

[exoseven]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var FFocusEdit  : TEdit;
...
procedure TForm.ControlChange(Sender: TObject);
begin
 if ActiveControl is TEdit then
  FFocusEdit := TEdit(ActiveControl);
end;
 
procedure TForm.Button1Click(Sender: TObject);
begin
  if assigned(FFocusEdit) then
   caption := FFocusEdit.Name;
end;

[ShaiLeTroll]

En utilisant un TSpeedButton, il ne prend pas le focus comme un TButton




En utilisant une redéfinition locale

Code :

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

1
2
3
4
5
6
7
8
9
type
  TEdit = class(Vcl.StdCtrls.TEdit)
  protected
    procedure DoEnter(); override;
  private
    class var FLastEnter: TEdit;
  public
    class property LastEnter: TEdit read FLastEnter;
  end;

Code :

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

1
2
3
4
5
procedure TEdit.DoEnter();
begin
  inherited DoEnter();
  FLastEnter := Self;
end;

et l'utilisation

Code :

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

1
2
  if Assigned(TLabeledEdit.LastEnter) then
    ShowMessage(TLabeledEdit.LastEnter.Name);

En redefinissant la WndProc de la TForm




Il y a tellement de solution !

[pascal07]

Bonjour à tous

le code de exoseven fonctionne :-)

Merci aussi à ShaiLeTroll pour ses propositions.

Problème réglé donc.

Pascal

[Papy214]

A quoi sert de cliquer sur un bouton pour savoir quel tedit est actuellement sélectionné ? Mon code fonctionne très bien en changeant de tedit par la touche tabulation ou un clic souris sur un tedit. Je n'imagine pas l'utilisateur appuyer sur un bouton pour savoir où il est

[pascal07]

Selon le TEdit actif, un dialogue Assistant s'affiche, et les paramètres de cet assistant ne sont pas les mêmes selon l'édit...

Voila, merci, Pascal

[popo]

Tu as donc plusieurs TEdit et un seul bouton qui affiche un assistant différent en fonction du TEdit sélectionné.
C'est pas simple à comprendre pour un utilisateur.

Il aurait plus simple pour toi, et plus intuitif pour l'utilisateur d'avoir un bouton derrière chaque TEdit et chaque bouton lance un seul assistant.
Single Responsibility Principle.