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;
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.
Potpis
sudo make me a sandwich