TEdit et Caret

Version imprimable

27/10/2015, 11h12
Zacheus

TEdit et Caret

Bonjour,

il y a moyen de faire apparaître un Tcaret dans un TEdit sous Windows ? J'ai joué avec la propriété Caret du composant sans aucun résultat et pour l'instant je trouve peu ergonomique et surtout peu habituel de se fier au cadre du composant (qui change de couleur) quand il obtient le focus.

Merci. Zac.

utilise les fonction de microsoft dans l'unité windows

Code:

1
2
3
function DestroyCaret: BOOL; stdcall;
function HideCaret(hWnd: HWND): BOOL; stdcall;
function ShowCaret(hWnd: HWND): BOOL; stdcall;

Désolé d'insister,

Mais je dois savoir. En Lazarus dans un TEdit, le Caret apparaît aussi bien sous Windows, Linux que OS X.
Avec FireMonkey, il n'apparaît pas d'origine ni sous Windows, ni sous OS X. :calim2:

J'ai porté ce matin ce petit code sur un TEdit
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 28 procedure Tform1.edCODEKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if (Length(edCODE.Text) > 7) and not (key in [vkBack, vkDelete, vkHome, vkEnd, vkLeft, vkRight, vkReturn, vkTab])then begin KeyChar := #0; MediaPlayer1.CurrentTime := 0; MediaPlayer1.Play; Exit; end; if Key = vkReturn then begin Key := vkTab; KeyDown(Key, KeyChar, Shift); end else if not (CharInSet(KeyChar,['0'..'9'])) and not (Key in [vkBack, vkDelete, vkHome, vkEnd, vkLeft, vkRight, vkTab]) then begin KeyChar := #0; // Beep; MediaPlayer1.CurrentTime := 0; MediaPlayer1.Play; end; end;
Un TEdit de 8 chiffres max. autorisant vkDelete, vkHome, vkEnd, vkLeft, vkRight. Si j"utilise ces Key, elles fonctionnent correctement mais sans aucun repère visuel, donc avec un inconfort total. Qu'est-ce que j'ignore ? J'ai essayé de nombreux réglages de la propriété Caret du composant, fouiné un peu partout sur le net. Je reste dans l'expectative.

Merci. Zac

27/10/2015, 18h59
Zacheus

Bonsoir,
Merci Anapurna, nos messages se sont croisés. Je regarde. Mais de prime abord c'est curieux. Comment est-il possible que ce "détail" ait été oublié au moins sous Windows ? Il faut que je regarde sur mon Mac, mais ce matin, il ne me semble pas avoir vu de Caret non plus. Mais il est vrai que mon poste de développement principal est sous Windows. Je regarderai demain. Zac.

ADD : Très curieux, dans un nouveau projet, sur une fiche vierge, le Caret apparaît dans un TEdit et sur mon projet, sur une fiche vierge d'origine, un autre TEdit n'a pas de Caret. On verra cela demain.
27/10/2015, 19h00
anapurna

salut

j'ai pas les sources des dernier delphi
mais sur delphi 7 la gestion du caret n’était pas installé je suppose donc que c'est a toi de le gérer

ADD
j'ai vu qu'a partir de X4 delphi gère le caret ... tu doit avoir un événement qui le supprime
27/10/2015, 19h26
Zacheus

Je crois que j'ai compris.
La première fenêtre de mon projet est ouverte ainsi :

Code:

Form0 := TForm0.Create(nil);

et non pas par

Code:

Application.CreateForm(TForm1, Form1);

Ceci explique probablement la différence de comportement au niveau du TEdit. Il n'y a plus qu'à comprendre pourquoi exactement et trouver un palliatif ou une autre manière d'ouvrir la première fenêtre. Je ne suis pas très partisan des Hide. Pour le reste je n'ai vu aucun autre changement de comportement.
27/10/2015, 19h47
anapurna

essai ceci

Code:

Form0 := TForm0.Create(self);
27/10/2015, 20h17
Zacheus

Code:

Form0 := TForm0.Create(self);

>> 'Self' : Identificateur non déclaré.

Bonjour,

le problème est bien l'ouverture de la fenêtre.

Je pose un TEdit sur une Form TfMain enregistrée dans uMain.
Ouverture classique
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 program Project1; uses System.StartUpCopy, FMX.Forms, FMX.Dialogs, uMain in 'uMain.pas' {fMain}; {$R *.res} begin Application.Initialize; Application.CreateForm(TfMain, fMain); Application.Run; end.
fMain s'ouvre, le TEdit possède un Caret.

Maintenant, je ne veux pas que fMain apparaisse au lancement du programme. je simplifie le squelette au maximum et utilise un Showmessage('') pour simuler l'ouverture d'autres fenêtres
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 program Project1; uses System.StartUpCopy, FMX.Forms, FMX.Dialogs, uMain in 'uMain.pas' {fMain}; {$R *.res} begin Application.Initialize; Application.CreateForm(TfMain, fMain); Application.RealCreateForms; Application.MainForm.Visible:=False; Showmessage('Oups'); Application.MainForm.Visible := True; Application.Run; end.
Après le Showmessage(''); la Form fMain apparaît mais le Tedit n'a plus de curseur de texte même s'il fonctionne : il n'est plus dessiné. :aie:
Et même un simple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 program Project1; uses System.StartUpCopy, FMX.Forms, uMain in 'uMain.pas' {fMain}; {$R *.res} begin Application.Initialize; Application.CreateForm(TfMain, fMain); Application.RealCreateForms; Application.MainForm.Show; Application.Run; end.
Et même un simple génère le problème.
Pffffffff... FireMonkey... technologie difficile à saisir avec des problèmes inattendus à tous les coins de rues... Intéressant mais je suis preneur d'un YaKa qui me permettrait de faire apparaître la FormMain après l'ouverture d'autres fenêtres mais sans effet désagréable d'une courte apparition avant l'ouverture de la première fenêtre modale...

Zac.

28/10/2015, 12h04
ALWEBER

En VCL - la propriété Visible est à true sur le premier "Application.CreateForm"
elle est à false sur les "Application.CreateForm" suivants. Je pense que ce doit être la même chose en FMX.
Peux tu m'envoyer ton uMain .pas et .fmx pour que je regarde.
Je travaille avec Delphi 7 et Delphi XE7

Bon,
j'ai terminé avec une approche plus classique, faute de mieux mais satisfaisante.
3 Forms, fMain (la MainWindow), fFirst (la première fenêtre à être vue par l'utilisateur), fTest une fenêtre ouverte classiquement à partir de fMain

Un dpr minimaliste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
 
uses
  System.StartUpCopy,
  FMX.Forms,
  FMX.Dialogs,
  uMain in 'uMain.pas' {fMain},
  uFirst in 'uFirst.pas' {fFirst},
  uTest in 'uTest.pas' {fTest};
 
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TfMain, fMain);
  Application.Run;
end.

Tout se joue dans le create de fMain

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit uMain;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.Edit,  FMX.StdCtrls,
 {Mine}
  uFirst, uTest
  ;
 
type
  TfMain = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  fMain: TfMain;
 
implementation
 
{$R *.fmx}
 
procedure TfMain.FormCreate(Sender: TObject);
var
  L : integer;
begin
//L := fMain.Left;
  fMain.Position  :=  TFormPosition.poDesigned; {Permettre la construction hors écran -> ToDo : Vérif Dual Screen -Décalage Haut << meilleure prob.}
//fMain.Left      := -fMain.Width;
  fMain.Top       := -FMain.Height;
//fMain.Hide; {Probablement inutile}
  Application.CreateForm(TfFirst, fFirst);
  fFirst.ShowModal;
  if fFirst.nRes = 0 then
     Application.Terminate
  else begin
//fMain.Left := L; {Probablement inutile}
    fMain.Position :=  TFormPosition.poScreenCenter;
  end;
end;
 
procedure TfMain.Button1Click(Sender: TObject);
begin
  if not (Assigned(fTest)) then
    Application.CreateForm(TfTest, fTest);
  fTest.Show;
end;
 
end.

fFirst

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
unit uFirst;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
 
type
  TfFirst = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    nRes : integer;
  end;
 
var
  fFirst: TfFirst;
 
implementation
 
{$R *.fmx}
 
procedure TfFirst.Button1Click(Sender: TObject);
begin
  nRes := 1;
  close;
end;
 
procedure TfFirst.Button2Click(Sender: TObject);
begin
  nRes := 0;
  close;
end;
 
end.

fTest est une Form vierge.

Testé sur Windows 10 et OS X >> OK, les carets sont là et MainWindow n'apparaît pas furtivement. Cordialement. Zac

PS : Encore un petit inconfort : Comment je sais que TFormPosition.poDesigned; Le poDesigned, c'est Lazarus/VCL mais quelle aide me permet de trouver le TFormPosition ? Je n'arrête pas de "butter" sur les classes. Un [F1] me renvoie dans ms-help://embarcadero.rs_xe7/rad/Editeur_de_code.html. J'y trouve bien "l'achèvement de classe" mais je possède le nom de la propriété ou de la méthode et comme, en FireMonkey, il faut explicitement préciser la classe... Quant au menu [Chercher>>rechercher une classe], c'est de peu d'utilité. Berf, il n'y a pas un [Ctrl] + ?

Une proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
program Ex01;
 
uses
  System.StartUpCopy,
  FMX.Forms,
  uFirst in 'uFirst.pas' {fFirst},
  uMain in 'uMain.pas' {fMain};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TfFirst, fFirst);
  Application.CreateForm(TfMain, fMain);
  Application.Run;
end.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
unit uFirst;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  uMain;
 
type
  TfFirst = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  fFirst: TfFirst;
 
implementation
 
{$R *.fmx}
 
procedure TfFirst.Button1Click(Sender: TObject);
begin
  // Bouton OK
  self.Visible := false ;
  fMain.Visible := true ;
end;
 
procedure TfFirst.Button2Click(Sender: TObject);
begin
  // Bouton Cancel
  Application.Terminate ;
end;
 
end.

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
 
unit uMain;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
 
type
  TfMain = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  fMain: TfMain;
 
implementation
 
{$R *.fmx}
 
end.