Zitat von
matashen:
mein letzter Versuch.(Mein Badewasser wird grad kalt !
hab dir schnell was zusammengebastelt und angehängt.
Vielleicht kannst du damit dein Problem finden
Danke für deine mühe
Ich habe es jetzt so gelößt.
Delphi-Quellcode:
procedure TVisForm.ModuleClick(Sender: TObject);
Var
IntI : Integer;
mi : TMenuItem;
CurrentItem : Integer;
begin
mi := Sender as TMenuItem;
CurrentItem := mi.tag;
mi.checked := True;
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 If ( Sender = Polygone1 ) Then
ShowMessage('Das war Polygone')
Else If ( Sender = CompactDisc1 ) Then
ShowMessage('Das war CompactDisc')
Else If ( Sender = Plasma1 ) Then
ShowMessage('Das war Plasma')
Else If ( Sender = Water1 ) Then
ShowMessage('Das war Water');
for IntI := 0 to 6 do
if IntI <> CurrentItem then
case IntI of
0:
Spectrum1.checked := False;
1:
VuBox1.checked := False;
2:
Peristalsis1.checked := False;
3:
Polygone1.checked := False;
4:
CompactDisc1.checked := False;
5:
Plasma1.checked := False;
6:
Water1.checked := False;
end;
end;
Mein problem bleibt aber bestehen.
Innerhalb der form ist das nun geklärt aber ich muss das submenuItem auch
außerhalb der Form erkennen können welcher index(eintrag) nun gewählt ist.
Da ich hier eine case anweisung einbauen muss welche daraufhin das
im Menu gewählte Visualisierungs-Modul ausführt.
Geht das generell oder muss ich mir da externe variablen einrichten ?
gruss