AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi button.enable funktioniert nicht aus einer procedure heraus
Thema durchsuchen
Ansicht
Themen-Optionen

button.enable funktioniert nicht aus einer procedure heraus

Ein Thema von snt1965 · begonnen am 21. Jun 2015 · letzter Beitrag vom 21. Jun 2015
 
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.344 Beiträge
 
Delphi XE2 Professional
 
#4

AW: button.enable funktioniert nicht aus einer procedure heraus

  Alt 21. Jun 2015, 08:14
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;
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<

Geändert von Helmi (21. Jun 2015 um 08:17 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz