Zitat von
matashen:
procedure TVisForm.ModuleClick(Sender: TObject);
Var
i : Integer;
mi: TMenuItem;
CurrentItem: Integer;
begin
mi := Sender as TMenuItem;
CurrentItem:= mi.tag;
If ( Sender = Spectrum1 ) Then
Spectrum1.checked:= not spectrum.checked usw. usw.
[delphi]
Ich hoffe das hilft dir
Verstehe ich nicht!
mi ist doch als TMenuItem declariert findet also den richtigen eintrag (Index) eingestellt im Tag des menüItem
Warum schaltet mi dann diesen eintrag nicht auf true
Der Tag wird doch auch erkannt!
gruss Emil