Ładny brzuch
Witam wszytkich
Mam 2 pytanka apropo msyzki w delphi
1) Jak pobraz wspolrzedne myszli i wysac je potem np do labela.
2) Jak zrobic cos takiego: w meisjcu o wplrzednyc x i y zostanie wcisniety prawy klawisz myszki potem kurnor pzreniesie sie w wpolzredne x1 y1 i wcnisnie lewy klawisz myszki.
Sesef
AD.1
http://forum.4progra...hp?id=57873&p=0
AD.2
procedure Myszka(var left,middle,right : boolean; var whereX,whereY : word); var przycisk,xx,yy : word; begin asm mov ax, 0003h int 33h mov word ptr przycisk, bx mov word ptr xx, cx mov word ptr yy, dx end; whereX:=xx; whereY:=yy; if ((przycisk and $01) <>0 ) then left:=true else lewy:=false; if ((przycisk and $02) <>0 ) then right:=true else right:=false; if ((przycisk and $04) <>0 ) then middle:=true else middle:=false; end;
Uytkownik Kajetanek edytowa ten post 07 kwiecie 2005, 14:26
Ad2. : Bylo na 4p o tym
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam 2 pytanka apropo msyzki w delphi
1) Jak pobraz wspolrzedne myszli i wysac je potem np do labela.
2) Jak zrobic cos takiego: w meisjcu o wplrzednyc x i y zostanie wcisniety prawy klawisz myszki potem kurnor pzreniesie sie w wpolzredne x1 y1 i wcnisnie lewy klawisz myszki.
Sesef
AD.1
http://forum.4progra...hp?id=57873&p=0
AD.2
procedure Myszka(var left,middle,right : boolean; var whereX,whereY : word); var przycisk,xx,yy : word; begin asm mov ax, 0003h int 33h mov word ptr przycisk, bx mov word ptr xx, cx mov word ptr yy, dx end; whereX:=xx; whereY:=yy; if ((przycisk and $01) <>0 ) then left:=true else lewy:=false; if ((przycisk and $02) <>0 ) then right:=true else right:=false; if ((przycisk and $04) <>0 ) then middle:=true else middle:=false; end;
Uytkownik Kajetanek edytowa ten post 07 kwiecie 2005, 14:26
Ad2. : Bylo na 4p o tym