Prosto:

na oncreate forme stavis:


na onmousemove stavis ovako:


ovo je ono, sto se kaze "iz glave"... probaj, sta te kosta

Hvala!

Radi super... A da li znas mozda neku proceduru sa kojom bih mogao da tacno zadam koordinate misa... Recimo da mu postavim pri svakom prolazu kroz petlju da mi pozicija Y koordinate misa bude recimo 100. Savrseno mi radi sa levo-desno ali ne treba da mi se krece mis gore dole jer dolazi do prekida kada strelica predje preko nekog objekta i onda secka glavni lik... I trebalo bi mi da ogranicim da kursor ne moze da izadje napolje van tog prozora... Da ga zarobim unutar tog prozora.. Da li je to moguce?
Hvala unapred

misa je moguce zarobiti u prozor (ne znam napamet probaj na www.delphi-place.net , ali duuugo nije radio), ali kada mis dodje do ivice, igrac ce prestati da se krece... stvarno ne znam, ali pogledacu
Ne znam kako zadati fiksnu poziciju misa...

Ajde videcu kako se zarobljava mis u prozor... mozda uspem da prepravim da zarobim u TImage... koji ce biti transparent-an

Ocekuj odgovor... sad nisam kuci

Ajd pogledaj molim te... Bilo bi super da ga zarobis u nekom image-u...
Hvala unapred!!!

Bas ono sto si trazio... zakaceno za poruku, downloaduj!

Thanks!!! ;-)

Samo thanks, daj neke reci hvale... reci jel ti pomoglo. A ona druga procedura (iz txt fajla). Daj gotovu igru!!!

Odlican ti je kod!
Vidim da si odlican programer... Ne znam gde iskopavas te procedure?!
Ja to nikada ne bih pronasao...
Sto se tice igrice, pravim neku vrstu modifikovanog arkanoida, sa muzikom u pozadini i sa nekim ekstra opcijama ali jos nisam uradio graficki deo... Samo sam napisao kod a ima jos dosta bug-ova...
Htedoh da pitam ako hoces da mi das tvoj mejl ili da mi ti pises prvo na moj mejl:
[email protected]
Pa da se malo mejlamo...
Interesuje me jos ako bih mogao da mi odradis kod za menjanje rezolucije ekrana, recimo da mi igra bude preko celog ekrana u full screen modu 800x600... To sam video negde ovde da je bilo vec na forumu ali nije htelo nesto da mi funkcionise...
Hvala ti puno inace za ovo, jako sam ti zahvalan na ovome... Inace ja se zezam sa mobilnim telefonima pa ako ti nesto ustreba tu sam...
Ajd jos ono ako mozes da vidis za 800x600...

HVALA PUNOOOO!!!!!!!!!

Prvo pokupi staru rezoluciju:
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);

Pa pozovi:
SetScreenResolution(800, 600); // ili koja ti treba

Znaci rezoluciju vracas sa:
SetScreenResolution(OldWidth, OldHeight);

Funkcija koju treba da dodas:

function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do
begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

P.S. OldWidth i OldHeight su INTEGER.