Zitat von
Muetze1:
Zitat von
EWeiss:
Hi kenn mich in Delphi.NET auch nicht aus
Du hast aber bei deinem ersten Beitrag angegeben, dass du mit .NET arbeitest...
Zitat von
EWeiss:
Jetzt funktioniert auch diese Abfrage!
Und was hast du bezüglich dem Versuch zuvor verändert?
Sorry hab da wohl die falsche Sprache angegeben
sollte natürlich Delphi sein
Habe jetzt alle OnClick ereignisse auf die sub gelegt.
Delphi-Quellcode:
procedure TVisForm.ModuleClick(Sender: TObject);
Var
i : Integer;
mi: TMenuItem;
CurrentItem: Integer;
begin
mi := Sender as TMenuItem;
CurrentItem:= mi.tag;
If ( Sender = Spectrum1 ) Then
ShowMessage('Das war Spectrum1')
Else If ( Sender = VuBox1 ) Then
ShowMessage('Das war VuBox1')
Else If ( Sender = Peristalsis1 ) Then
ShowMessage('Das war Peristalsis1')
Else
ShowMessage('Das war irgendwas anderes...');
for i := 0 to 6 do
If i = CurrentItem Then
mi.Checked := true
else
mi.Checked := false;
end;
Das funktioniert zwar ..
Aber wie kann ich jetzt außerhalb der form den Menüeintrag abfragen welcher angeklickt wurde ?
Wenn ich immer noch nicht weiss wie ich an die submenuitems gelange.
Auch wird mir so der eintrag nicht als checked makiert ...
gruss Emil