Bonjour
Je voudrais savoir comment intervenir avec un TScrollBar sur un TEdit
(donc entre autres quel attribut du TEdit représente la position affichée (si l'affichage dépasse par exemple la longueur du TEdit))
Merci
Bonjour
Je voudrais savoir comment intervenir avec un TScrollBar sur un TEdit
(donc entre autres quel attribut du TEdit représente la position affichée (si l'affichage dépasse par exemple la longueur du TEdit))
Merci
Un ScrollBar horizontal, je suppose, ... c'est vrai que le défilement d'un texte trop long pose problème, peut-être essayé un TMemo qui proposera les ScrollBar et même le multi-ligne, si cela est possible ... ensuite, cela serait une recherche sur le CaretPos, il y a des fonctions API (via Message Windows genre EM_SCROLLCARET) ... qui pourrait t'aider à déplacer le curseur ...
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. ___ Écrivez dans un français correct !!
C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.3.2 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.1 Entreprise
OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.4)
fallait le laisser chercher ... deplus, cela déplace le curseur, mais il lui faudrait indiquer quel caractère est le premier apparent, avec le TMemo, on indique la ligne en TOPLINE, mais pour un texte horizontal, je ne sais pas ...
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
merci pour vos réponses (j'avais pas accès à internet, d'ou mon absence ^^)
je vais jeter un oeil a ca.
Voila une petite idée :
Ajouter un composant Memo, et Deux boutons
Mettre la propriété de Memo WordWrap > False, et Height > 21
Désactiver la touche ( Entrer ) dans l'évènement OnKeyPress de Memo
Et il faut aussi désactiver la touche CTRL+ENTER ...etc
Code : Sélectionner tout - Visualiser dans une fenêtre à part If key = #13 Then key := #0;
Le bouton droite fait l'action suivante :
Et le bouton gauche fait l'action suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part SendMessage(Memo.Handle,WM_HScroll,SB_LINERIGHT,0);
Code : Sélectionner tout - Visualiser dans une fenêtre à part SendMessage(Memo.Handle,WM_HScroll,SB_LINELEFT,0);
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager