 ::  |
| Autor |
Poruka |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Delphi Vam omogucava da na lak i jednostavan nacin ogranicite kretanje misa po ekranu, tj. zadavanjem virtuelnog pravougaonika unutar koga je dozvoljeno (i jedino moguce) kretanje pokazivaca.
Ovaj primer vam pokazuje kako se moze ograniciti kretanje pokazivaca misa samo unutar glavne forme aplikacije. Postavite taster na formu i u OnClick dogadjaj (event) upisite sledeci kod. Ogranicenje se aktivira pritiskom na postavljeni taster.
| Code: | procedure TForm1.Button1Click(Sender: TObject);
var
Rect: TRect;
begin
Rect.Left := Left;
Rect.Top := Top;
Rect.Right := Left + Width;
Rect.Bottom := Top + Height;
ClipCursor(@Rect);
end; |
Ukidanje ogranicenja pri napustanju programa...
| Code: | procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClipCursor(nil);
end; |
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
 |
|
| |
|
 |
Mr. Bond
IntruderSRB™
 |
Godine: 34
Datum registracije: 04 Apr 2005
Poruke: 2904
Mesto: Beograd - Novi Beograd
|
|
|
Doktore ClipCursor je Delphi-eva funkcija vec napisana ili i to moram da pisem?
|
|
|
| |
|
|
Doktor
~Sanjicino*slculence~
|
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Ne ClipCursor je API funkcija, dakle sistemska ali je mozes pozvati iz Delphi-ja. Deklarisana je u modulu Windows (Windows.pas) ovako (ovako je Delphi poziva iz API-ja):
function ClipCursor; external user32 name 'ClipCursor';
A ovako je deklarisana za korisnike:
ClipCursor(lpRect: PRect);
U svakom slucaju kod mozes samo da iskopiras i radice, nema potrebe za pisanjem ove funkcije. 
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
|
|
| |
|
|
Mr. Bond
IntruderSRB™
|
Godine: 34
Datum registracije: 04 Apr 2005
Poruke: 2904
Mesto: Beograd - Novi Beograd
|
|
Hvala Joco  Pretpostavljao sam da ne treba dodatni unit da se poziva  Al ko pita ne skita
|
|
|
| |
|
|
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
