LPT überwachen

[turboPASCAL]

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
Case [color=#ff0000](Sender as TCheckBox).Tag[/color] of

In deinem Demo sind die Tag's leer. Die sollten im OI oder im Code gesetzt werden sonnst funktioniert das Demo nicht.

Ein B. um die Tag's zur Laufzeit zu setzen:

Delphi-Quellcode:

procedure TFormX.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i := 0 to 7 do
   (FindComponent(format('CheckBox%d', [i+1])) As TCheckBox).Tag := i;

// (FindComponent(format('CheckBox%d', [i+1])) As TCheckBox).Tag := i;
// kann man auch anders schreiben:
// TCheckBox(FindComponent(format('CheckBox%d', [i+1]))).Tag := i;
end;