merhaba arkadaşlar,
label'a yazılan herhangi bir şeyin örneğin ismimiz yön tuşlarıyla hareket etmesi gerekiyor. acele lazım ben yapamadım yardımcı olursanz çok sevinirim.
şeyy salı günü sınavım var çok acil bugün alırsınız demiştiniz..[:I]
Aşğdaki gibi kod yazabilirsiniz. Benzer kodu sola ok tuşu içinde yazmanız gerekir..
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Ord(Key) = VK_RIGHT Then
Begin
Label1.Caption := ' ' + Label1.Caption;
End;
end;
cvp verdiğiniz için teşekkürler fakat programda bi hata var sanırım sadece sağ tarafa doğru yapınca oluyo fakat sol taraf yukarısı ve aşağısında olmuyo hep sola gidiyo label :)
Hatice sorunu yanlış anlamışım sanırım aşağıdaki kod işini görür.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Ord(Key) = VK_RIGHT Then
Begin
Label1.Left := Label1.Left +2;
End;
If Ord(Key) = VK_LEFT Then
Begin
Label1.Left := Label1.Left -2;
End;
If Ord(Key) = VK_UP Then
Begin
Label1.Top := Label1.Top -2;
End;
If Ord(Key) = VK_DOWN Then
Begin
Label1.Top := Label1.Top +2;
End;
end;