|
Poslao: 10 Jun 2006 18:46
|
offline
- Robi1984
- Novi MyCity građanin
- Pridružio: 10 Jun 2006
- Poruke: 3
|
Cao svima!
Jer zna neko da mi kaze sta ovom kodu fali? kako da ga ispravim:
procedure TfrmMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
key(#37):=XVing.left+1;
end;
pise: [Error] uMain.pas(90): E2066 Missing operator or semicolon
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 10 Jun 2006 18:58
|
offline
- Srki_82
- Moderator foruma
- Srđan Tot
- Am I evil? I am man, yes I am.
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
Kod koji si napisao nije dobar... zbog... hmmm:
1. Ne postoji funkcija ili procedura Key (pretpostavljam)
2. Cak i da postoji funkcija, procedura ili tip Key, nemoguce je dodeliti neku vrednost key(#37) jer to nije promenljiva.
E, sad... kad bi rekao sta zelis... 
|
|
|
|
|
|
|
Poslao: 10 Jun 2006 20:22
|
offline
- NuLLCoDe
- Legendarni građanin
- Đuro Glumac
- dipl. ing. informatike
- Pridružio: 08 Feb 2004
- Poruke: 3640
- Gde živiš: ApAtIn
|
u Pascalu ima funkcija keypressed. Ovo key nisam video.
|
|
|
|
|
|
|
Poslao: 11 Jun 2006 11:47
|
offline
- Robi1984
- Novi MyCity građanin
- Pridružio: 10 Jun 2006
- Poruke: 3
|
Ovim sam hteo da nateram jedan objekat da se pomera, pritiskom na strelicu na levo. Samo, kao sto vidis, imam malo problema sa tim
Kako bi mogao to da izvedem?
|
|
|
|
|
|
|
Poslao: 11 Jun 2006 13:50
|
offline
- Srki_82
- Moderator foruma
- Srđan Tot
- Am I evil? I am man, yes I am.
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
Strelica levo bas i ne moze da se uhvati sa KeyPressed jer taj event vraca char tip, a strelica je extended key tako da ne moze da stane u u jedan bajt.
Koristi OnKeyDown event:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP: XWing.Top := XWing.Top - 1;
VK_DOWN: XWing.Top := XWing.Top + 1;
VK_LEFT: XWing.Top := XWing.Left - 1;
VK_RIGHT: XWing.Top := XWing.Left + 1;
end;
end;
Ovo ce da radi, ali za jedan pritisak na strlicu ce se objekat pomeriti za jedan pixel i onda ces morati da pritisnes ponovo da be se pomerio opet. Bolje resenje ti je da postavis flagove za kretanje (npr. jedan set u kojem cuvas koji su tasteri pritisnuti) i na osnovu flagova prilikom svakog update ekrana pomeras objekat.
|
|
|
|
|
|
|
Poslao: 12 Jun 2006 09:07
|
offline
- Robi1984
- Novi MyCity građanin
- Pridružio: 10 Jun 2006
- Poruke: 3
|
E, pogodi sta ima novo? Radi! 
Promenio sam da se pomera za tri pixela umesto za jedan, tako da dosta dobro funkcionise.
Inace ovo radim za seminarski na faxu, Imam jos otprilike nedelju dana da zavrsim rad. Postavicu ga na sajt kad zavrsim.
Hvala ti puno za kod! Pozdrav!
|
|
|
|
|
|
|
Poslao: 13 Jun 2006 17:41
|
offline
- Pridružio: 11 Jun 2006
- Poruke: 94
|
To je neka cudna stvar.
Ono sto hoces da nateras da odgovori na dogadjaj sa tastature mora biti valjda u fokusu.
Inace pogledaj to u Laslo Kraus ima na strani 145 i 146.
|
|
|
|
|
|
|
Poslao: 13 Jun 2006 18:15
|
offline
- beli0135
- Executor
- Pridružio: 03 Jan 2005
- Poruke: 2990
- Gde živiš: Beograd
|
Ja, opet, volim da uradim capture poruke (message), onda vidim koja je kontrola u pitanju, i onda tacno mogu da odredim sta ce da se odradi i na kom objektu.
FormKeyPress ne volim da radim jer je to previse globalno. Narocito ne valja ako imas par kontrola koje mogu da prime Keydown ili keypress.
|
|
|
|
|
|
