[delphi] Panel na drodze imag'a po raz 2 :-((

witam... dlaczego nikt nie odpowiedział na mój post ? Wiadomo nikt was do tego nie zmusza ale skoro tu jesteście to mogli byście pomóc. ja tam nikomu jak na razie nie pomogę bo nic nie umiem. Gdybym umiał to bym pomógł ale niestety tak nie jest z czego się bardzo smucę. Zadaję pytanie po raz drugi. Jak zrobić żeby image zatrzymał się na panelu gdy się z nim "zderzy". Wiem jak zrobić żeby obrazek sobie "jeździł" po formie. Ale on mi zawsze wyjeżdza poza formę ;-( . Dlatego jak zrobić żeby ten obrazek zatrzymał się na panelu lub na końcu formy. bardziej by mi odpowiadał kod na panela ale jak ktoś może to prosił bym aby podał obydwa jeżeli ktoś jest w stanie :-)) Darek963 dzięki za chęci ale ten twój kod był nie dokończony a ja niestety nie umiałem go dobrze zakończyć.
z góry dzięki.
pozdrawiam

--
!! Jak mam sie nauczyc programownia ? :-( !!

To może pokaż, jak poruszasz tym imag'em :)

--

Delphi 6

Pozdrówka

ok.
If (Key=VK_RIGHT) Then Image1.Left := Image1.Left +1;
If (Key=VK_LEFT) Then Image1.Left := Image1.Left -1;
If (Key=VK_UP) Then Image1.Top := Image1.Top -1;
If (Key=VK_DOWN) Then Image1.Top := Image1.Top +1;

--
!! Jak mam sie nauczyc programownia ? :-( !!

If (Key=VK_RIGHT) [b]and (Image1.Left + Image1.Width < Width)[/b] Then Image1.Left := Image1.Left +1;

If (Key=VK_LEFT) [b]and (Image1.Left > 1)[/b] Then Image1.Left := Image1.Left -1;

If (Key=VK_UP) [b]and (Image1.Top > 1)[/b] Then Image1.Top := Image1.Top -1;

If (Key=VK_DOWN) [b]and (Image1.Top + Image1.Height < Height)[/b] Then Image1.Top := Image1.Top +1;

--
Vogel [[email protected]]

Life is just a dream, you know...
[Cowboy Bebop]