Edit drag, mouse stop

Edit drag, mouse stop

offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

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)?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • savkic 
  • Novi MyCity građanin
  • Pridružio: 05 Jun 2007
  • Poruke: 29

> 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;



offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

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

Ko je trenutno na forumu
 

Ukupno su 780 korisnika na forumu :: 25 registrovanih, 0 sakrivenih i 755 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, amaterSRB, Bane san, Boris90, bozo13, cinoeye, crnitrn, Džordžino, janbo, lcc, MiG-29M2, Milos1389, milos97, mkukoleca, nesa1962, nikoladim, Oscar2, pein, raptorsi, Srky Boy, stemark, vathra, virked, Vlada1389, voja64