Mainmenue: untermenues verschwinden lassen

[Perlsau]

Zitat von Hartfrid Krause:

Ich kriege es noch nicht hin.
Also:
Wenn die Auswahl ein Bundesland ist, dann soll das Untermenue Einzelne Ergebnisse von parteien angezeigt werden.

if satz[2]<120 then ....onclick....visible...enabled... aber wie??

Du mußt dir selbst ein System ausdenken. Z.B.:

1. Alle Menüpunkte, die beim Anklicken etwas ausblenden sollen, bekommen den Tag 1.
2. Alle Menüpunkte, die beim Anklick dasselbe wieder einblenden sollen, bekommen den Tag 2.
3. Alle Menüpunkte, die beim Anklicken etwas anderes ausblenden sollen, bekommen den Tag 3.
4. Alle Menüpunkte, die beim Anklick dasselbe andere wieder einblenden sollen, bekommen den Tag 4.

usw.

Dann schreibst du die Proceduren für die jeweiligen Ein- und Ausblendungen und weist in der jeweiligen On-Click-Behandlung der verschiedenen Menüpunkte die richtigen Proceduren zu:

Delphi-Quellcode:

PROCEDURE TForm1.MenueBehandlung1;
BEGIN
     Menu_EinzelneErgebnisse.Visible := FALSE;
     // oder: Menu_EinzelneErgebnisse.Enabled := FALSE; {je nachdem, wie du's haben möchtest}
END

PROCEDURE TForm1.MenueBehandlung2;
BEGIN
     Menu_EinzelneErgebnisse.Visible := TRUE;
     // oder: Menu_EinzelneErgebnisse.Enabled := TRUE; {je nachdem, wie du's haben möchtest}
END

PROCEDURE TForm1.Menu_BrandenburgClick(Sender: TObject);
BEGIN
     CASE Menu_Brandenburg.Tag OF
     1 : MenueBehandlung1;
     2 : MenueBehandlung2;
     3 : MenueBehandlung3;
     4 : MenueBehandlung4;
     END;

     TuWasDuNichtLassenKannst;
END;

Ist das nun soweit für dich nachvollziehbar oder wäre es dir doch lieber, wenn ich dir das ganze Programm schreibe (das wird dann aber nicht billig)?