Discussion :

[Dionyzos]

Bonjour,


J’ai deux problèmes similaires :

1) J’aimerais dans un TMemo insérer le caractère («) lorsque j’appuie sur la touche (") du clavier, et ce à l’endroit même où le curseur est positionné.

2) J’aimerais, toujours dans un TMemo, insérer 2 espaces à la suite lorsque j’appuie sur la touche TAB du clavier, sans que le TMemo perde le focus et également à l’endroit même du curseur.

Pour le pb n° 2, j’ai essayé d’utiliser la propriété WantTabs à True, mais je ne sais pas comment paramétrer la valeur du tab à 2 espaces seulement.


Merci d’avance à ceux ou celles qui m’apporteront leur aide.

[Reisubar]

Tu peut de débrouiller de cette façon, en entrant du code dans l'évènement OnKeyPress du memo :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key='"' then Key:='«'; //Simple remplacement
 if Ord(Key)=9 then //si touche TAB
 begin
   Key := #0; //refuser l'insertion de TAB
   (Sender as TCustomMemo).SelText := '  '; //Remplacer par deux espaces
 end;
end;

N'oublie pas de mettre WantTabs à true.

[Dionyzos]

Ca marche au poil !!!

Merci beaucoooooooouuuuuup !!!!