Thema: Delphi Bild verschieben

Einzelnen Beitrag anzeigen

super_sebbi

Registriert seit: 7. Apr 2003
6 Beiträge
 
#3
  Alt 7. Apr 2003, 21:16
Ja, danke !!!

Für alle anderen mit ähnlichem Problem:
man kann die tasten auch über Nummer ansprechen. Bei den Courser-Tasten würde das dann so aussehen:

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = $27) then panel1.left := panel1.left + 10;
if (Key = $25) then panel1.left := panel1.left - 10;
if (Key = $26) then panel1.top := panel1.top - 10;
if (Key = $28) then panel1.top := panel1.top + 10;
end;
  Mit Zitat antworten Zitat