Edit drag, mouse stop

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na obrascu su za Edit postavljene granice npr. po 100px sa svih strana.
Kada pomjeram Edit misom po obrascu i kada Edit dode do granice mis se
nastavi kretati selektujuci od mjesta klika text u Editu i ide dalje
dok ima ekrana.
Kako da zaustavim kretanje misa kad Edit dode do krajnje granice i
usput kako da pri prevlacenju kursor bude crDrag, a ne crIBeam
(Editov standardni)?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

> Na obrascu su za Edit postavljene granice npr. po 100px sa svih strana.
> Kada pomjeram Edit misom po obrascu i kada Edit dode do granice mis se
> nastavi kretati selektujuci od mjesta klika text u Editu i ide dalje
> dok ima ekrana. Kako da zaustavim kretanje misa kad Edit dode do
> krajnje granice i

var
R: TRect;
begin
R := Edit1.BoundsRect;
R.TopLeft := ClientToScreen(R.TopLeft);
R.BottomRight := ClientToScreen(R.BottomRight);
ClipCursor(@R);
end;

> usput kako da pri prevlacenju kursor bude crDrag, a ne crIBeam

Edit1.Cursor := crDrag;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala. Prvo sam mislio da mi ne moze pomoci ali mijenjanjem
koncepcije aplikacije u tom dijelu pomoglo je.
Zato jos jednom hvala.