Discussion :

[Colloc]

Bonjour,

Je souhaite pouvoir utiliser la touche Tab dans une appli firemonkey dans un TMemo pour faire une tabulation (plusieurs espaces par exemple).

Or, les évènements OnKey... ne détecte pas le tab, et cela passe le focus à l'objet suivant...

Comment récupérer l'appui sur le tab ?

Merci

[Crayon]

Salut, dans le TForm où est le TMemo ajoute la méthode suivante dans la section protected du .h:

Code :

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

	virtual void __fastcall KeyDown(System::Word &Key, System::WideChar &KeyChar, System::Classes::TShiftState Shift);

Ensuite dans le fichier cpp ajoute ceci:

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::KeyDown(System::Word &Key, System::WideChar &KeyChar, System::Classes::TShiftState Shift)
{
    if(Key == vkTab && Memo1->IsFocused)
    {
        // Ajoute des espaces
        Key = 0;
    }
    TForm::KeyDown(Key, KeyChar, Shift); // Appelle la méthode dont il hérite
}

C'est la classe TCommonCustomForm qui défini cette méthode.

[10_GOTO_10]

Tu dois probablement avoir une propriété TCustomMemo::WantTabs qui permet de faire ça.

[Crayon]

Tu dois probablement avoir une propriété TCustomMemo::WantTabs qui permet de faire ça.

WantTabs est seulement disponible pour la VCL.

[Colloc]

Impeccable, cela fonctionne !

Merci...