petla, repeat...until

0

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

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 ]====----

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0