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 Bei Klick auf die Listbox ein Event (onChange) erzeugen (https://www.delphipraxis.net/200756-bei-klick-auf-die-listbox-ein-event-onchange-erzeugen.html)

mcinternet 22. Mai 2019 14:44

Bei Klick auf die Listbox ein Event (onChange) erzeugen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo zusammen,

nachdem diese Komponente (mein DruckerPanel) nun läuft kommt die nächste Hürde.

=> Siehe Anhang (Screenshot)

Ich benötige ein Event, was ich bei der aufrufenden Form benutzen kann. Erst sollte die Auswahl statt finden und danach ein Event abgefeuert werden, damit ich die Auswahl von der Form aus abfragen kann.
Wie kann man das bewerkstelligen?


Beste Grüße

mcinternet

Luckie 22. Mai 2019 15:00

AW: Bei Klick auf die Listbox ein Event (onChange) erzeugen
 
Was ist mit dem OnClick Event der Listbox?

mcinternet 22. Mai 2019 15:06

AW: Bei Klick auf die Listbox ein Event (onChange) erzeugen
 
Zitat:

Zitat von Luckie (Beitrag 1432852)
Was ist mit dem OnClick Event der Listbox?

Dieses wird innerhalb der Komponente für das Setzen des Standarddruckers genutzt.
Und genau nachdem das passiert ist, soll ein Event (OnChange) bei dem Panel greifen.

Ich hab jetzt schon mal folgendes eingebaut:
Code:
type

     TDruckerPanel = Class(TPanel)
    private
       <snip>
       FOnChange     : TNotifyEvent;
   public
      <snip>
   published
      <snip>
  property OnChange : TNotifyEvent Read FOnChange write FOnChange;

end
Was mir jetzt noch fehlt ist im Prinzip das Wissen, um dieses OnChange auszulösen.

Beste Grüße

mcinternet

Frickler 22. Mai 2019 15:12

AW: Bei Klick auf die Listbox ein Event (onChange) erzeugen
 
Delphi-Quellcode:
if Assigned(fOnChange) then fOnChange(Self);

mcinternet 22. Mai 2019 15:15

AW: Bei Klick auf die Listbox ein Event (onChange) erzeugen
 
Zitat:

Zitat von Frickler (Beitrag 1432859)
Delphi-Quellcode:
if Assigned(fOnChange) then fOnChange(Self);

Bingo :thumb: das wars! :-D

vielen lieben Dank

Beste Grüße aus dem schönen Odenwald

mcinternet


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

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