Einzelnen Beitrag anzeigen

bcvs

Registriert seit: 16. Jun 2011
668 Beiträge
 
Delphi 12 Athens
 
#27

AW: Tastatur Eingabe im Canvas Objekt

  Alt 31. Okt 2014, 12:07
Genau,

und auf den Thread kannst meiner Meinung mach auch verzichten, wenn Du den CNC-Datenempfang in eine Methode deines Mainforms auslagerst, z.B. so: (zumindest vorerst, bis alles läuft)
Delphi-Quellcode:
type
  TForm1 = class(TForm)
  ...
  private
    procedure PerformCNCData;
  ...
  end;

procedure TForm1.FormShow(Sender: TObject);
begin
  PerformCNCData;
end;

procedure TForm1.PerformCNCData;
begin
  while true do begin
    byt := READBYTE;
    case (byt and $0F) of
    ...
    end;
    Application.ProcessMessages; // Hier sehr wichtig, damit das Programm noch bedienbar bleibt
  end;
end;
  Mit Zitat antworten Zitat