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 696 korisnika na forumu :: 25 registrovanih, 7 sakrivenih i 664 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: A.R.Chafee.Jr., amaterSRB, Andrija357, dane007, David, djordje92sm, dr_grof, Gama, gasha, goxin, HDMI, konstruktor, Kruger, lavi, mercedesamg, Milan A. Nikolic, Oluj2.1, panonski mornar, pein, repac, Roman, sakota79, Sr.Stat., StefanNBG90, zlaya011