Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna mi je mala pomoc oko koda...

[es] :: Pascal / Delphi / Kylix :: Potrebna mi je mala pomoc oko koda...

[ Pregleda: 3110 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dusan Aleksic
Student; web developer @ freelance
Beograd

Član broj: 5244
Poruke: 200
*.dial.InfoSky.Net

ICQ: 129852450


+5 Profil

icon Potrebna mi je mala pomoc oko koda...18.06.2004. u 01:55 - pre 220 meseci
Code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  begin
if key = VK_UP then edit1.Top := Edit1.Top-1;
if key = VK_DOWN then edit1.Top := Edit1.Top+1;
if key = VK_left then edit1.left := Edit1.left-1;
if key = VK_right then edit1.left := Edit1.left+1;

end;

Hteo bih da napisem kod koji radi isto sto i ovaj gore, ali bez koriscenja edit1.top. Ja sam pokusao sa sender.top, jer sam mislio da je u funkciji TForm1.Edit1KeyDown "sender" ustvari edit1. Kako ovo da odradim, nisam siguran da sam dobro objasnio, ali malo sam pospan, pa ako treba jos da pojasnim kazite.
sudo make me a sandwich
 
Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.panline.net



Profil

icon Re: Potrebna mi je mala pomoc oko koda...18.06.2004. u 06:51 - pre 220 meseci
Mislio si nesta ovako
TEdit(Sender).Top ili (Sender as TEdit).Top
 
Odgovor na temu

Dusan Aleksic
Student; web developer @ freelance
Beograd

Član broj: 5244
Poruke: 200
*.dial.InfoSky.Net

ICQ: 129852450


+5 Profil

icon Re: Potrebna mi je mala pomoc oko koda...18.06.2004. u 12:31 - pre 220 meseci
Tnx, to je ono sto mi je trebalo!
sudo make me a sandwich
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Potrebna mi je mala pomoc oko koda...

[ Pregleda: 3110 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.