Czy ktos moglby mi powiedziec jak zrobic cosik takiego? :
chcialbym aby po najechaniu myszka na obiekt program wykonywal jakies tam moje obliczenia dopoki, doputy kursor myszki nie zjedzie z tego obiektu....
jak to zrobic?--take care,
Wodzu
0
0
Musisz napisac nowy komponent obslugujacy komunikaty CM_MOUSEENTER i CM_MOUSELEAVE. Teraz w obsludze pierwszego komunikatu:
if Enter then ....
Enter to zmienna globalna typu Boolean (domyslne FALSE). Podczas obslugi drugiego komunikatu:
Enter := False;
Mam nadzieje, ze sobie poradzisz...--Pozdrawiam!
Adam Boduch
www.4programmers.net
0
To ja proponuję napisać:
w public lub private - bez znaczenia "enter : boolean;"
a potem w image1.onmouseove czy jakos tak wpisać if enter = false then
begin
enter := true;
end;
i twoj kod
potem w Form1.oncreate
begin
enter := false;
end;
i jeszcze w form1.onmouseover czy jakos tak
begin
enter := false;
end;
btw until musi wyglądać tak: until enter := false; // lub enter = false; - eeee nie pamętam
BTW poprzedzaj Application.processmessages; - czy jaos tak :) - to powinno wyeliminować zatniecie się aplikacji :)
{hello}
0
Dziekuje Adamie, z tym nie bedzie problemu...
A jak przerwac dzialanie procedury na Klikniecie myszki? Napisalem komponent tak jak to jest w przykladach i w nim nie ma zdefiniowanego Buttona, rozumiem ze aby to dzialalo to musze zdefiniowac Button?
Czy moze jest jakis inny sposob?
--take care,
Wodzu
0
ZIOMBER, Tobie tez dziekuje:)--take care,
Wodzu
0
Moze po prostu w zdarzeniu OnClick, danego obietku przypisac zmiennej Enter falsz?--take care,
Wodzu
0
Aby przerwac dzialanie procedury po klikniecu myszka zrob se jakas zmienna typu boolean np x:boolean; a potem zrob tak zeby po kliknieciu myszka x:=false;
Procedura powinna wygladac jakos tak:
repeat
...
...
...
until x=false;--Delphi 6, Pascal
----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----