Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi button klick für mehrere buttons (https://www.delphipraxis.net/83279-button-klick-fuer-mehrere-buttons.html)

schuetzejanett 30. Dez 2006 13:12


button klick für mehrere buttons
 
Hallo

wie schaffe ich es mehreren dynamisch erstellten buttons die gleiche on click methode zuzuordnen, wobei er bei klick auf einen button ein edit feld sichtbar macht, das mit dem sichtbar machen ist ja kein problem aber wie schaffe ich es das die jeweiige przedur aufgerufen wird und ich weiß welcher button gedürckt wurde?

Phoenix 30. Dez 2006 13:17

Re: button klick für mehrere buttons
 
Delphi-Quellcode:
NeuerButton.OnClick := MeinOnClickEreignis;
Und innerhalb des Ereignisses kannst Du via Sender überprüfen, welcher Button das war.

Delphi-Quellcode:
if (Sender as TButton).Name = 'Button1' then

Thorben_K 30. Dez 2006 13:20

Re: button klick für mehrere buttons
 
Oder allen Buttons einen Tag zuordnen und dann die Tag beim klick überprüfen.

Delphi-Quellcode:
if (Sender as TButton).Tag = 1 then
hätte den vorteil das du ne Zahl hast, die du beim erstellen der buttons einfacher zuordnen kannst, falls du es dynamisch machst

Hador 30. Dez 2006 13:41

Re: button klick für mehrere buttons
 
Zitat:

Zitat von Phoenix
Delphi-Quellcode:
NeuerButton.OnClick := MeinOnClickEreignis;

Du kannst die jeweilige Prozedur übrigends auh im oi unter ereignisse auswählen einfach nur einmal klicken (Doppelklick erstellt ja eine neue proc.)

Phoenix 30. Dez 2006 13:55

Re: button klick für mehrere buttons
 
@Hador: Nunja... dynamische Buttons (nach denen er gefragt hatte) sind halt zur Designzeit noch nicht da um ihnen darüber eine Ereignisbehandlungsroutine zuzuweisen.

Hador 30. Dez 2006 17:30

Re: button klick für mehrere buttons
 
:oops: ups überlesen


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:01 Uhr.

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