Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: "255" dauerhaft auf LPT1 !

    Delphi
    by LinuxFan, 10. Okt 2008
  oder einfach
  
  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  begin
  case Key of
  '1': begin ShineNot(0); SNot(0) end;
  '2': begin ShineNot(1); SNot(1) end;
  '3': begin ShineNot(2); SNot(2) end;
  '4': begin ShineNot(3); SNot(3) end;
  '5': begin ShineNot(4); SNot(4) end;