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
1 873 499 membres 33 nouveaux aujourd'hui 16 151 membres club