![]() |
TActionlist -> 2 Buttons -> Welcher wurde gedrückt ?
Hallo zusammen,
ich habe eine TActionlist, mit der ich zwei Buttons verbunden habe. Wie kann ich nun in dem Execute-Ereignis herrausfinden, welcher Button gedrückt wurde ? Gruss Holger |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Warum musst du dies überhaupt? Action(List) sind dafür da um definierte Handlungen (Actions) zentral zu definieren und verwalten und dies unabhängig der Position der Anzeige. Wenn du dies unterscheiden musst, dann ist die Action nicht gleich. Von daher zwei getrennte Actions anlegen und deren Handlung entsprechend behandeln.
Ansonsten: ![]() |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Beim OnExecute wird der Sender mitgegeben.
Den kannst Du zu einem Button casten. Dann kannst Du anhand dem Namen oder Caption oder sonst was herausfinden, welcher Button die Action ausgelöst hat. Aber prinzipiell hat Muetze recht. Eine Action sollte nur dann von mehreren Komponenten benutzt werden, wenn wirklich alles 100% gleich ist. Sonst eben mehrere Actions verwenden |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
|
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Vielen dank schon mal.
Es geht darum, das ich zwei unterschiedliche PDF - Dateien mit den beiden Button öffnen möchte. Ich möchte mit der Actionliste die Berechtigung steuern. Das heisst enabled = FALSE/TRUE. Möchte dann halt in der Actionliste Enabled = FALSE für alle PDF-Buttons setzen. Möchte halt nicht jeden Button einzeln steuern müssen, da sie ja von der Funktion das selbe tuen, nur halt die PDF-Datein sind unterschiedlich, die geöffnet werden. Oder ist das ganz falsch gedacht ? Gruss Holger P.S.: Kannst Du mir hier mal kurz Code posten, wie ich aus dem Object Sender einen Button caste ? |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
OK.
Dann halt per ActionComponent. Zitat:
|
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
... hast Du dafür mal ein kleines Code-Beispiel ?
|
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Im onExecute-Events wird dir der Parameter Action übergeben, Action.ActionComponent referenziert dann den Auslöser
|
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Vielleicht habe ich jetzt ein Brett vor dem Kopf, aber in dem OnExecute-Event wird doch nur der Sender übergeben ?
Gruss Holger |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
Sollte so funktionieren:
Delphi-Quellcode:
procedure TFoActionForm.AcButtonPressExecute(Sender: TObject);
begin if TBasicAction(AcButtonPress).ActionComponent = BuPDFNummerEins then begin MachWas; end else if TBasicAction(AcButtonPress).ActionComponent = BuPDFNummerZwei then begin MachWasAnderes; end; end; |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Wir Reden hier vom Event der ActionList.
|
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
Delphi-Quellcode:
Es wird also auch noch ein TApplicationEvents benötigt.
procedure TMainForm.ApplicationEventsActionExecute(Action: TBasicAction;
var Handled: Boolean); procedure TMainForm.MyActionExecute(Sender: TObject); |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Delphi-Quellcode:
procedure TDemo_Form.ac_blubbExecute(Sender: TObject); // Action : ac_blubb
begin ShowMessage((Sender as TAction).ActionComponent.Name); // Zeigt den Namen des Controls über den die Action gestartet wurde end; |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Vielen vielen dank.
Also ich bin nun wie in dem Code-Beispiel über das Event der Action gegangen und nicht über das Event der Actionlist. Das klappt super. Danke an euch alle. Gruss Holger |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Trotzdem mein Beispiel:
Du brauchst auf dem Formular eine TActionList und TApplicationEvents Dann:
Delphi-Quellcode:
Nun wird erst ApplicationEvents1ActionExecute und dann AcButtonPressExecute ausgeführt.
procedure TFoStatus.AcButtonPressExecute(Sender: TObject);
begin if TBasicAction(AcButtonPress).ActionComponent = BuAbbrechen then begin // MachWas; end else if TBasicAction(AcButtonPress).ActionComponent = BuAbbrechen then begin // MachWasAnderes; end; end; procedure TFoStatus.ApplicationEvents1ActionExecute(Action: TBasicAction; var Handled: Boolean); begin if Action.ActionComponent = BuAbbrechen then begin // MachWas; end else if Action.ActionComponent = BuAbbrechen then begin // MachWasAnderes; end; end; |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
@RavenIV: Was ich bei deinen beiden Beispielen vermisse: wo bzw. was ist AcButtonPress?
Wenn, dann typecaste den Sender:
Delphi-Quellcode:
procedure TFoStatus.AcButtonPressExecute(Sender: TObject);
begin Assert(Sender is TBasicAction, 'Ups, doch keine TBasicAction...'); if TBasicAction(Sender).ActionComponent = PDF1Laden then begin // MachWas; end else if TBasicAction(Sender).ActionComponent = PDF2Laden then begin // MachWasAnderes; end; end; |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
Sorry, hab das schnell runtergetippt und das casten vergessen :oops: |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
1. Du typecastest eine Action Komponente auf ihre Basisklasse zurück - wozu? 2. Du gehst fest davon aus, dass es nur diese eine Action sein kann, die diese Methode aufruft. 3. Du hast ActionComponent immer mit dem gleichen Element verglichen (sprich: in beiden Fällen). Was das sein könnte habe ich mir gedacht, aber die drei Punkte machten den Code unverständlich bzw. man/der Fragestelelr erkennt den Sinn bzw. intern Ablauf/Aufbau schwerer bzw. nicht. |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
Wird hier alles auf die Goldwaage gelegt, was man von sich gibt. Ein klein Wenig mitdenken dürfte wohl nicht zuviel sein. :x |
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
|
Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
Zitat:
Dein Tip ist angekommen. :thumb: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:50 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 by Thomas Breitkreuz