procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //dans la procedure MouseUp RichEdit1.SelText := 'ICI'; end;
Marche pas... :-( à+
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...)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte