cześć. co zrobić żeby image po dojechaniu do panela już dalej nie mógł jechać :D chodzi mi o to że w momencie gdy obrazek ( image ) dojedzie do panela to staje i dalej nie może jechać .. jak to zrobić ?
z góry dzięki
--
!! Jak mam sie nauczyc programownia ? :-( !!
[code]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ruch:boolean;
begin
if (not((Image1.Top+Image1.Height>Panel1.Top) and (Image1.Top<Panel1.Top+Panel1.Height))) or (not((Image1.Left+Image1.Width>Panel1.Left) and (Image1.Left<Panel1.Left+Panel1.Width))) then
begin
if key=VK_Left then Image1.Left:=Image1.Left-1;
if key=VK_Right 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;
end
else
begin
if key=VK_Left then Image1.Left:=Image1.Left+1;
if key=VK_Right 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;
end;
end;[/code]
wszystko było by spox gdyby to działało :-(
--
!! Jak mam sie nauczyc programownia ? :-( !!
ja bym uzyl rect collision z noxxdxsprite ale bedziesz musial miec CHYBA zaisalowane komponenty DelphiX ale żadnych nie umieszczaj na formie orprócz tegoż koponętu :)
potem trzebaużyć instrukcji warukowej
if rect_collision(panel.left itp. (cały rect a potem reco image'a) = true then
nie chce mi sie tego tobie tłumacvzyć :)