button.enable funktioniert nicht aus einer procedure heraus

[snt1965]

Hallo roga,
danke für die schnelle Antwort. Die beiden procedures sind schon in meiner form definiert.
Gute Idee mit dem zusammenfassen, aber leider löst das das Problem nicht. Zur Not schreibe ich es eben direkt an den entsprechenden Stellen in den Quelltext. Aber interessant wäre es schon, warum es über die procedure nicht funktioniert.

[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;

[snt1965]

Hallo helmi,
danke für den Hinweis - du hast recht.
Ich hab's jetzt so abgeändert. Trotzdem funktioniert es leider so nicht.
Könnte es da irgendwo in der Botschaftsverarbeitung von Windows ein Problem geben?

[Helmi]

Zitat von snt1965:

Trotzdem funktioniert es leider so nicht.

Verrätst du uns noch, was nicht geht?
Kommt eine Fehlermeldung?

[snt1965]

Hallo helmi,
es kommt keine Fehlermeldung - die Buttons ändern einfach ihren Status nicht d.h. sie bleiben in diesem Fall disabled, obwohl sie enabled sein sollen.

[Helmi]

Zitat von snt1965:

Hallo helmi,
es kommt keine Fehlermeldung - die Buttons ändern einfach ihren Status nicht d.h. sie bleiben in diesem Fall disabled, obwohl sie enabled sein sollen.

Hast du schon mal den Debugger angeschmissen und hast geschaut, ob er überhaupt da reinläuft?

nebenbei bemerkt ergibt sich für mich der Sinn dieser Zeile nicht:
   if Abbr then exit; .

nochmals nebenbei bemerkt:
Kann es sein, dass der Code oben nicht vollständig ist?
Wo z. B. ist die Variable "Abbr" definiert? - in dem oben gezeigten Code nirgendswo

[snt1965]

ja, mit dem Debugger bin ich da natürlich auch schon durch. Die Zeilen werden normal abgearbeitet, aber die Buttons reagieren nicht darauf.