Status eines Buttons abfragen

[Luckner]

Hallo peterbelow,

könntest Du mir ein Beispiel für "Action mit dem Button" zeigen? Habe damit so nie gearbeitet.

Gruß, Luckner

[BerndS]

Hallo mit

Delphi-Quellcode:

  
procedure TForm1.e1Exit(Sender: TObject);
begin
  if Screen.ActiveControl = btCancel then
    exit
  else
    ...;
end;

könnte man das erreichen.

[peterbelow]

Wirf eine TActionList auf das Form, mach einen Doppelklick drauf um den zugehörigen Komponenteneditor zu öffnen. In dessen Toolbar gibt es einen Add-Knopf, damit fügst Du eine TAction zu der Liste hinzu, die dann auch automatisch in der Komponentenliste des Forms auftaucht und im Objektinspektor bearbeitet werden kann. Gehe dort auf den Tab für die Events. Die relevanten Events für eine TAction sind OnExecute und OnUpdate. Wenn Du die dropdownliste für OnExecute aufklappst solltest Du da die Methode sehen, die Du dem Button OnClick-Event zugeordnet hast (plus alle anderen TNotifyEvents auf dem Form), die kannst Du direkt auswählen. Mach dann einen Doppelklick auf OnUpdate um die IDE einen Handler dafür erzeugen zu lassen. Den füllst Du dann etwas so aus:

Delphi-Quellcode:

procedure TForm1.Action1Update(Sender: TObject);
begin
  (Sender as TAction).Enabled := edit1.GetTextLen > 0;
end;

Dann klick auf den Button und setzte im OI seine Action-Eigenschaft auf die Action (hier Action1). Der Button übernimmt dadurch auch Caption, Hint, Imageindex etc. von der Action, die muss man also auch in den Eigenschaften der Action festlegen.

Wenn Du das Programm dann laufen läßt wird der Button automatisch disabled solange das edit1-Control leer ist.

[DasWolf]

Hallo,

der TE hat doch geschrieben, dass es einen Schalter "Abbrechen" gibt, der das Panel schließen soll. Interpretiert man den Text richtig, kommt dabei heraus, dass dieser Schalter auch freigegeben sein soll, wenn im Edit-Feld nichts steht.
Also muss der Schalter immer Enabled sein.

Er kann einfach nur einen TSpeedButton nehmen. Dieser lässt beim Klick den Focus auf dem Edit-Feld, führt kein OnExit-Ereignis aus und schließt das Panel.
Dafür braucht man keine Action oder sonst irgendeinen Code.

[Moombas]

Zitat von DasWolf:

Hallo,

der TE hat doch geschrieben, dass es einen Schalter "Abbrechen" gibt, der das Panel schließen soll. Interpretiert man den Text richtig, kommt dabei heraus, dass dieser Schalter auch freigegeben sein soll, wenn im Edit-Feld nichts steht.
Also muss der Schalter immer Enabled sein.

Dagegen spricht auch nichts, aber der Button "OK" (oder wie er zum Bestätigen auch immer heißt) betrifft das enablen oder disablen.

Der "Abbrechen"-Button muss natürlich immer enabled sein. Sein Problem war nur das "OnExit"-Event.

[ConnorMcLeod]

Wie wäre es damit, alles in dem Form zu deaktivieren, bis auf das Edit und den Button?
Im OnExit kannste prüfen, ob was im Edit steht und danach alles Andere aktivieren; wenn nicht, dann ist nur der Button erreichbar.

[Moombas]

Mit meinem Lösungsvorschlag braucht es (sofern nicht für andere Funktionen genutzt) kein onExit-Event = kein Problem mehr.
Und mit der Lösung von peterbelow wohl auch nicht, habe ich aber bisher selber noch nicht mit gearbeitet.

Und warum gleich ALLES disablen, wenn es reicht den "Bestätigungsbutton" zu ein-/auszuschalten!?

[ConnorMcLeod]

Weil man ohnehin nirgends hinwechseln darf, sollte nichts eingetragen sein, war aber nur so eine Idee, kein credo