AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TMenuItem.OnClick wird nicht ausgelöst

Ein Thema von Neutral General · begonnen am 15. Jun 2008 · letzter Beitrag vom 15. Jun 2008
Antwort Antwort
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

TMenuItem.OnClick wird nicht ausgelöst

  Alt 15. Jun 2008, 22:21
Hi,

Ich habe schon im Forum gesucht aber nichts konnte mir helfen.

Habe folgenden Code:

Delphi-Quellcode:
procedure TForm1.Methode;

  procedure PopUpOnClick(Sender: TObject);
  begin
    // Etwas tun
  end;
  
var popup: TPopupMenu;
    met: TMethod;
    i: Integer;
begin
  popup := TPopUpMenu.Create(Self);
  try
    met.Code := @PopUpOnClick;
  
    for i := 0 to List.Count - 1 do
    begin
      popup.Items.Add(TMenuItem.Create(popup));
      met.Data := popup.Items[i];
      popup.Items[i].OnClick := TNotifyEvent(met);
    end;
    popup.Popup(0,0); // Koordinaten egal
    // Popup(0,0) dauert so lange, bis das PopUpmenu weggeklickt wurde oder etwas ausgewählt wurde.
  finally
    popup.Free;
  end;
end;
Das OnClick Ereignis der MenuItems wird aber nie ausgeführt. Habs auch schon mit ner normalen Methode als TNotifyEvent (OnClick) ausprobiert. Hat aber auch nicht funktioniert...

Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: TMenuItem.OnClick wird nicht ausgelöst

  Alt 15. Jun 2008, 22:24
Warum verwendest du keine Methode?
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

Re: TMenuItem.OnClick wird nicht ausgelöst

  Alt 15. Jun 2008, 22:25
Zitat von Neutral General:
Habs auch schon mit ner normalen Methode als TNotifyEvent (OnClick) ausprobiert. Hat aber auch nicht funktioniert...
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:51 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