Forum: Sonstige Fragen zu Delphi
Delphi
by HighSpeed,
22. Jan 2009
@ Uwe Raabe:
stimmt, is beim begin / end löschen wohl irgendwie übrig geblieben...
aber das passiert ja schonmal, wenn man nich alles immer duch n compiler laufen lässt
Forum: Sonstige Fragen zu Delphi
Delphi
by HighSpeed,
22. Jan 2009
Wichtig ist das else, da die 2. Bedingung in beiden Fällen erfüllt ist und ausgeführt werden würde.
Forum: Sonstige Fragen zu Delphi
Delphi
by HighSpeed,
22. Jan 2009
Es müsste wohl eher so aussehen:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Key = 39) then
Panel1.left := Panel1.left + 1;
end else if Key = 39 then
Panel1.left:= Panel1.left+10;
end;