button.enable funktioniert nicht aus einer procedure heraus

[Helmi]

Zitat von snt1965:

Die beiden procedures sind schon in meiner form definiert.

Das sind sie eben nicht!

Schau dir den Code von Roga nochmal genau an.
Dort befindet sich in der "private" Deklaration die Definition der Procedure. Erst dann gehört sie auch der Form.

Daher steht bei Roga´s Code auch "TForm1." im Procedure-Kopf (sagt man so dazu?)

Das würde dann (um bei deinen 2 Procedures zu bleiben) so aussehen:

Delphi-Quellcode:

  private
     { Private-Deklarationen }
     procedure button_ein;
     procedure button_aus;
   public
     { Public-Deklarationen }
end;

var
   Form1: TForm1;


implementation

{$R *.DFM}
uses pio_usb_box, pio_usb_var, ser_cport, fluke45, tools, emrtools, empser,
      emrdaten, emreinm, emranzta, emrrel, emrpnet;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   if key=VK_ESCAPE then begin beep;Abbr:=true;end;
   if key=VK_RETURN then begin beep;OK:=true;end;
end;

procedure apm;
begin
  application.processmessages;
  if (GetKeyState(VK_Escape) and 128) = 128 then Abbr:=true;
  if (GetKeyState(VK_Return) and 128) = 128 then OK:=true;
end;

procedure TForm1.button_ein;
begin
  button1.enabled:=true;
  button2.enabled:=true;
  button3.enabled:=true;
end;

procedure TForm1.button_aus;
begin
  button1.enabled:=false;
  button2.enabled:=false;
  button3.enabled:=false;
end;