Ist while in verbindung mit einem Button nicht möglich?

[Zyro]

ich habe einen Button, der heisst Bwert. Dann habe ich eine Prozedur, die ein paar Sachen durchläuft. jetzt will ich, aber die Prozedur an einer STelle anhalten, um einen Parameter einzugeben. Aber irgendwie will er das nicht akzeptieren. Hier der Quellcode:

Delphi-Quellcode:

 if(t=2)AND(Feld[t]<>'NULL')THEN begin
          while not BWert.Click do begin
          Edit1.Enabled:=true;
          Bwert.Enabled:=true;
          end;
          end;

[MrKnogge]

ich glaub nicht, dass das geht, arbeite doch mit dem OnClick-Ereigniss des Buttons.

[Zyro]

Und wie kann ich da solange die schleife anhalten?!

[scp]

Delphi-Quellcode:

var
  BWertClicked : boolean;

// ...

procedure TForm1.BWertClick(Sender: TObject);
begin
  BWertClicked := true;
end;

// ...
begin
  BWertClicked := false;
if(t=2)AND(Feld[t]<>'NULL')THEN begin
          while not BWertClicked do begin
          Edit1.Enabled:=true;
          Bwert.Enabled:=true;
          Application.ProcessMessages;
          end;
          end;
  BWertClicked := false;
end;

[maximov]

'Click' ist eine virtuelle methode...keine property! Ausserdem ist delphi ereigniss-orientiert und deshalb solltest OnClick benutzen ...echt jetzt.

cui.

[samson]

Hallo.

Auszug aus Delphi-Hilfe:

Delphi-Quellcode:

Die Methode Click simuliert einen Mausklick durch den Benutzer auf eine Schaltfläche.

procedure Click; override;

Beschreibung

Ein Aufruf von Click weist dem übergeordneten Formular den Wert der Eigenschaft ModalResult der Schaltfläche zu und erzeugt dann das Ereignis OnClick.

Ich weiss nicht wie du Dein Kontrukt programmiert hast, aber kann nach der Hilfe nicht so funktionieren, so wie ich das Verstanden habe.

Weise Deinem Button mal die Eigenschaft: ModalResult := mrOK zu.

Deine Schleife änderst Du folgendermassen:

Delphi-Quellcode:

while self.modalResult<>mrOK do 
  begin
    Edit1.Enabled:=true;
    Bwert.Enabled:=true;
    Application.ProcessManages;
  end;

[Zyro]

Zitat von scp:

Delphi-Quellcode:

var
  BWertClicked : boolean;

// ...

procedure TForm1.BWertClick(Sender: TObject);
begin
  BWertClicked := true;
end;

// ...
begin
  BWertClicked := false;
if(t=2)AND(Feld[t]<>'NULL')THEN begin
          while not BWertClicked do begin
          Edit1.Enabled:=true;
          Bwert.Enabled:=true;
          Application.ProcessMessages;
          end;
          end;
  BWertClicked := false;
end;

nach deinem Beispiel sagt er immer, dass Clicked ein undeclared identifier ist ?!?

[Siehtix]

leg deine prozedur doch einfach auf nen timer und disable den auf knopfdruck.

[scp]

@Zyro
In meinem Beispiel habe ich eine Variable definiert, deshalb kann sie janicht undeclared sein.
Du darfst nicht BWert.Clicked schreiben, sondern nur BWertClicked, ohne Punkt.

[OLLI_T]

@Zyro!

Du solltest Dein Code mal gründlich überdenken. Dieses Konstrukt sieht echt verboten aus. Anhalten gibt es bei Windows nicht. wenn ein Codeabschnitt nicht erreichbar sein soll, lässt sich das über Variablen leicht handhaben. Rechenzeitintensive Geschichten gehören in einen Thread. Alles andere ist gezwackel. Dieses Application.Processmessages sollte verboten werden.

Sorry, meine Meinung

OLLI