Delphi pohyby

• Citovať príspevok

Príspevok od používateľa SC0U7 » 12 júl 2009, 11:53

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 júl 2009, 12:20

• Citovať príspevok

Príspevok od používateľa SC0U7 » 12 júl 2009, 13:03

ok skusim thanks len to som potreboval
a ako to nastvaim na šípky??
a ako nastavim panaka ktori ked sa dotkne napr panelu1 Umre ??

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 júl 2009, 13:14

ehm? hodíš button na form, a dvakrát naň klikneš potom zapíšeš príšlušný kod

• Citovať príspevok

Príspevok od používateľa SC0U7 » 12 júl 2009, 13:20

audiotrack napísal:ehm? hodíš button na form, a dvakrát naň klikneš potom zapíšeš príšlušný kod

že mi napíšeš príslušný kód PL

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 júl 2009, 13:21

tak mi napíš čo za objekt chceš pohybovať

• Citovať príspevok

Príspevok od používateľa SC0U7 » 12 júl 2009, 13:29

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 júl 2009, 13:36

Kód: Vybrať všetko

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    vk_UP: shape1.Top:=shape1.top-3;
    vk_DOWN: shape1.Top:=shape1.top+3;
    vk_LEFT: shape1.left:=shape1.left-3;
    vk_RIGHT: shape1.left:=shape1.left+3;
  end;
end;

(dal som to na shape, lebo image by si nevidel kým nemá načítaný obrázok)

Prílohy

omg.rar

(159.78 KiB) 31 stiahnutí

• Citovať príspevok

Príspevok od používateľa SC0U7 » 12 júl 2009, 13:44

yEAAA ide thx a ece neporadis jak by sa dalo spravit keby shape tzv nabural do panelu1 tak by sa vypisalo Showmessage('Koniec hry!!')

• Citovať príspevok

Príspevok od používateľa audiotrack » 12 júl 2009, 13:48

tak ako má súradnice shape, tak ich má aj panel. Jendoduché porovnávania <= a >= čo sa preberá na základnej škole (prípadne sa to dá zjednodušiť cez absolútne hodnoty nech máš menej písania ale musíš viac potrápiť hlavu )

• Citovať príspevok

Príspevok od používateľa SC0U7 » 12 júl 2009, 13:51

oks skušal som toto stými suradnicami

if shape1.Top:=Panel1.top then
... **na bodky som skúšal dať Showmessage('Koniec hry!!')

asi blbost že? ja že šak ked bude mat shape1 výšku ako Panel1 tak vipíše Koniec hry ale niečo bud zle v tom (( := )) lebo to je priradenie a ešte asi treba doplnit left lebo ked bude mat len výšku tak ju môže mat zarovne ale nemusí sa ho dotíkať !

odpoveď

• Citovať príspevok

Príspevok od používateľa feromakovi » 12 júl 2009, 14:18

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'w':if image1.top>0 then image1.Top:=image1.Top-2;
's':if image1.Top+image1.height<form1.clientheight then image1.Top:=image1.Top+2;
'a':if image1.left>0 then image1.left:=image1.left-2;
'd':if image1.left+image1.width<form1.clientwidth then image1.left:=image1.left+2;
end;
end;