begin process at 2008 08 29 23:04:25
1 233 930 membres
450 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

INSÉRER DU TEXT LA OU L'ON CLIQUE SUR UN RICHEDIT


Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 15/07/2002 Date de mise à jour : 15/07/2002 09:47:04 Vu : 2 284

Note :
Aucune note

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

J'avais vu ca quelque part demandé sur le forum, j'y avait répondu avec un code complexe alors qu'en faite c'est tous simple:
ca ajoute un du text la ou l'on clique dans un Richedit(ou Memo)

Source

  • procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
  • Shift: TShiftState; X, Y: Integer);
  • begin
  • //dans la procedure MouseUp
  • RichEdit1.SelText := 'ICI';
  • end;
procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

//dans la procedure MouseUp
RichEdit1.SelText := 'ICI';

end;
  • signaler à un administrateur
    Commentaire de subzero le 19/10/2003 12:42:30

    Marche pas... :-(
    à+

  • signaler à un administrateur
    Commentaire de fobia le 04/04/2004 04:05:46

    Ca marche... (Delphi 7)
    c'est pas trés top mais ca marche....

    ca marche avec tout les objets qui ont la propiétée SelText
    (Tedit Tmemo ect...)

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Boutique

Boutique de goodies CodeS-SourceS