Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TActionlist -> 2 Buttons -> Welcher wurde gedrückt ? (https://www.delphipraxis.net/110053-tactionlist-2-buttons-welcher-wurde-gedrueckt.html)

HolgerCW 12. Mär 2008 09:42


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

Muetze1 12. Mär 2008 09:44

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: Delphi-Referenz durchsuchenTBasicAction.ActionComponent - aber wie gesagt, das klingt eher nach einem Designproblem...

RavenIV 12. Mär 2008 09:53

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

Muetze1 12. Mär 2008 09:55

Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
 
Zitat:

Zitat von RavenIV
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.

Nein, der Sender ist immer die TAction.

HolgerCW 12. Mär 2008 10:16

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 ?

RavenIV 12. Mär 2008 10:17

Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
 
OK.
Dann halt per ActionComponent.

Zitat:

Zitat von Delphi-Hilfe
Mit ActionComponent kann die Client-Komponente bestimmt werden, die diese Aktion verursacht hat. In einer Ereignisbehandlungsroutine für OnExecute können Sie beispielsweise durch einen Lesezugriff auf ActionComponent feststellen, welche Benutzeraktion der Auslöser für die Aktion war.

Wenn der Benutzer auf ein Client-Steuerelement klickt, weist der betreffende Client der Eigenschaft ActionComponent einen Wert zu und ruft dann die Methode Execute der Aktion auf. Nach der Ausführung der Aktion wird die Eigenschaft wieder auf nil (Delphi) bzw. auf NULL (C++) gesetzt.


HolgerCW 12. Mär 2008 10:19

Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
 
... hast Du dafür mal ein kleines Code-Beispiel ?

mkinzler 12. Mär 2008 10:24

Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
 
Im onExecute-Events wird dir der Parameter Action übergeben, Action.ActionComponent referenziert dann den Auslöser

HolgerCW 12. Mär 2008 10:27

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

RavenIV 12. Mär 2008 10:29

Re: TActionlist -> 2 Buttons -> Welcher wurde gedrückt
 
Zitat:

Zitat von HolgerCW
... hast Du dafür mal ein kleines Code-Beispiel ?

Aber nur, weil Du so nett gefragt hast.
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:30 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz