Discussion :

[Herk77]

Salut,
je suis en train de faire un traditionnel TEdit pour saisir un nombre, et dans son fonctionnement il a deux états : un état dans lequel il affiche le nombre formatté, par exemple "1 000,00 €", et un autre état qui correspond à la saisie du nombre. Dans le premier état j'aligne le texte à droite en masquant le curseur et dans le deuxième j'aligne à gauche en affichant le curseur. Pour le changement d'alignement je suis aller voir dans la FAQ, et j'ai trouvé la méthode avec SetTextAlign et CreateParams. Mon problème est le suivant, quand j'utilise SetTextAlign le curseur ne réapparait pas toujours, alors que sans SetTextAlign le curseur disparaît et réapparait comme je veux. Un autre problème avec le curseur : quand je minimise ma fenêtre avec le TEdit qui a le curseur caché, quand je restaure ma fenêtre le curseur a réapparu.
Comment faire pour changer l'alignement du texte tout en gérant l'affiche du curseur ? Et, comment faire pour que le curseur réapparaisse seulement quand je le veux ?
Si vous avez pigé et si vous avez des idées, merci d'avance

NB : j'utilise HideCaret et ShowCaret pour masquer et afficher le curseur.

[Droïde Système7]

Bonjour,

J'ai pas trop pigé même après deux lectures ce que tu désires faire exactement, mais je sais par expérience d'expliquer est un art

Bref, regarde ce p'tit bout de code en souhaitant qui tu puisses l'adapter :

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.SelStart := length( Edit1.Text) + 1;
end;

Cela te donne le focus et déplace ton curseur en fin d'Edit.

@+

[Herk77]

Bien essayé mais c pas ça
En fait ce que je veux c'est :
- quand je saisie un nombre dans mon TFloatEdit, il faut que l'alignement passe en LeftJustify et que le curseur apparaisse.
- quand j'ai fini de taper, il passe en RightJustify et le curseur disparait.

[Droïde Système7]

Bonjour,

Je ne connais pas ce compo, mais as-tu essayé en OnChange de ton Edit de faire un appel à cette propriété et d'ensuite lui donner le focus ?

[Yurck]

- quand je saisie un nombre dans mon TFloatEdit, il faut que l'alignement passe en LeftJustify et que le curseur apparaisse.
- quand j'ai fini de taper, il passe en RightJustify et le curseur disparait.

Moi, mes composants fonctionnent comme cela bon ce sont des TDBEdit mais le TMaskEdit doit fonctionner ainsi.

Tout le problème c'est

- quand j'ai fini de taper

Comment veux tu déterminer si tu as fini de taper ?
N'est-ce pas là le rôle de la sortie du composant ?
Quand tu entre dans ton composant c'est en théorie pour saisir et quand tu en sort c'est que tu as fini?

Vraiment je ne vois pas ce que tu veux de plus?
a+

[Droïde Système7]

Bonsoir,

Comment veux tu déterminer si tu as fini de taper ?

Et oui ; à part de valider en cliquant sur un bouton ou bien de savoir si le Edit comporte X caractères...

@+

[Herk77]

j'ai pas dû être clair sur le fait que je suis en train de créer un composant : le TFloatEdit c'est ma création

en fait je sais que la frappe est fini quand j'appuie sur entrée ou quand je sors du Edit : à ce moment là le texte doit être calé à droite avec le curseur invisible (si on est sorti c'est normal ) mais si on a appuyé sur entrée on est encore dans le Edit et là je cache le curseur avec HideCaret. Le problème c'est que le curseur ne réapparait pas quand je frappe à nouveau ou quand je rentre à nouveau dans le Edit, et ce même en utilisant ShowCaret.

[Droïde Système7]

Bonjour,

Oki, oki, je te prennais pour un tout débutant.

Mais connais-tu Google ?

j'ai pas dû être clair sur le fait que je suis en train de créer un composant : le TFloatEdit c'est ma création

N'enfonces-tu pas une grande porte ouverte depuis longtemps ?
http://www.programmersheaven.com/dow.../download.aspx

Heuuuu, ou le doublonnage de nom de compos en VCL...

[Herk77]

Peu importe le TFloatEdit je cherche à savoir pourquoi le curseur ne réapparait pas avec le ShowCaret. Le TFloatEdit c'est un prétexte pour apprendre.

[Jipété]

Pourquoi il ne réapparaît pas au ShowCaret ?
N'y aurait-il pas un rapport avec ce que me dit mon sdk ? :

ShowCaret shows the caret only if the specified window owns the caret, the caret has a shape, and the caret has not been hidden two or more times in a row. If one or more of these conditions is not met, ShowCaret does nothing and returns FALSE.

Hiding is cumulative. If your application calls HideCaret five times in a row, it must also call ShowCaret five times before the caret reappears.

Juste une idée comme ça...
--
jp

[Herk77]

C'est plutôt en rapport avec le SetTextAlign puisque sans ça marche.
Ou peut être un mélange des deux, mais apparemment personne ne connait le problème.

[Droïde Système7]

Bonjour,

Et si tu t'inspirais du code de ton composant, peut-être que la clé est dedans, non ?