Få en label til å bege seg

[Talker]

Hvordan kan jeg få f.eks en label eller et bilde til å flytte seg hit eller dit når jeg trykker venstre piltast... dette med piltasten er greit, men hvordan å få noe til å bevege seg...

[Format71]

f.eks. noe slikt:

 

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key = VK_LEFT then
 begin
   label1.left := label1.left - 1;
   key := #0;
 end
 else if Key = VK_RIGHT then
 beign
   label1.left := label1.left + 1;
   key := #0;
 end
end;

 

sett også keypreview := true på formen, så vil det fungere selv om andre komponenter har fokus.

 

-Vegar