Richedit fravælge "flyt tekst" - funktionen

under properties for richedit vælg

richedit1/dragmode = DmAutomatic

Hej stone.

Det der det problem med din løsning at man så ikke kan "vælge" en en stykke af en tekst med musen og at man får en "nodrop"-cursor.

//eht

hmm. dit spøgrsmål gik på at slå marker/drop tekst fra.
du kan også lave en tænd/sluk funktion via menuitem

så har du muligheden for at vælge selv hvornår funktionen skal disables

procedure TForm1.TndSluk1Click(Sender: TObject);
begin
tndsluk1.Checked := not tndsluk1.Checked;
if
tndsluk1.Checked = true then
richedit1.DragMode:= dmautomatic else
richedit1.DragMode:= dmmanual;
end;

helt ærligt så forstår jeg ikke dit spørgsmål

Hej stone.
Så må jeg prøve at udtrykke mig lidt mere tydeligt.

Du foreslår at sætte dragmode til dmAutomatic.
Det virker også efter hensigten!!  ... man kan ikke længere  trække markeret tekst et andet sted hen med musen, det var jo det jeg ville men...
Det får desværre som "bivirkning" at man nu ikke længere kan markere en tekst med musen. Desuden skifter curseren til crNoDrag når man holder musen nede.

Jeg har brug for at man stadig kan markere en tekst.

Jeg håber det er klart nok.
//erik

Hej Stone m.fl.
Jeg har selv fundet en løsning der virker:

OnMouseDown sætter jeg Richedit.readonly:=true;
OnMouseUp sætter jeg Richedit.readonly:=false;

Så kan jeg stadig markere tekst med musen og "noDrag"-cursoren, kommer kun hvis man førsøger at trække tekst.

Det undrer mig dog stadig hvis man ikke bare kan "disable" denne funktion.

//Erik

ja....udmærket løsning, og det er sjovere når man selv finder den.