Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Tpopupmenu

Bjoern128 - Sa 20.07.02 11:20
Titel: Tpopupmenu

Hallo!

Ich habe folgendes Problem. Ich habe einen Typ deklariert Ttest und der hat eine Eigenschaft Menu:TPopupmenu. Jetzt möchte ich gerne dem Event onclick von TMenuitem definieren, aber ich weiß nicht wie dsa geht. Also das Popupmenu klappt zwar auf aber ich kann dem Menuitem eben kein Ereignis zuweisen.
Kann mir da jemand helfen wie dsa deklariert wird?

DAnke
Björn

Chris1308 - Sa 20.07.02 11:42

Ich bin mir nicht sicher aber versuchs mal so:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.meins(Sender: TObject);
begin
  ShowMessage('OnClick!');
end;

procedure TForm1.FormCreate(Sender: TObject);
var myTest: TTest;
begin
  myTest.Menu.Item1.OnCick := meins;
end;

Ich glaube so klappt das...

Chris1308

Bjoern128 - Sa 20.07.02 12:27
Titel: Problem nur teilweise gelöst

Hallo nochmal!

Danke bin schon mal nen schritt weiter. Jetzt sagt er aber, "imcompatible types: TNotifyEvent and Procedure"
Wie kann man dsa beheben

Danke
Björn

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!