viele Panels mit OnClick, bei click nur eins "gedrückt" ?

[hronny]

Hi!

Ich habe eine eigene Komponente gebastelt in der ich Panels erzeuge die ein Mouseover haben. Nun sollen die so eine Art "Umschalter" wie eine Checkbox sein, wenn gedrückt dann sieht das Panel optisch anders aus. Jetzt möchte ich aber das immer wenn ich ein anderes anklicke, das vorhergehende deselectiert wird, wie es bei einer RadioGroup funktioniert. Nur wie stell ich das an? Den Status setz ich ja in der Komponente, aber dieses "abwählen" muss sicher die Hauptform machen oder?

[silver-moon-2000]

Zitat:

Zitat von hronny

Ich habe eine eigene Komponente gebastelt in der ich Panels erzeuge die ein Mouseover haben. Nun sollen die so eine Art "Umschalter" wie eine Checkbox sein, wenn gedrückt dann sieht das Panel optisch anders aus. Jetzt möchte ich aber das immer wenn ich ein anderes anklicke, das vorhergehende deselectiert wird, wie es bei einer RadioGroup funktioniert. Nur wie stell ich das an? Den Status setz ich ja in der Komponente, aber dieses "abwählen" muss sicher die Hauptform machen oder?

Nur so ein schnelles Gedankenexperiment:

Gehe in Deiner Click-Methode alle Komponenten des Parents Deines Panels durch.
Wenn Diese Komponente den richtigen Typ hat, deselektiere sie.

Die RadioGroup / der RadioButton macht imgrunde auch nichts anderes.

HTH

[DeddyH]

Oder alle Panels in einer Liste verwalten und das jeweils aktive merken. Wird ein anderes geklickt, wird das gemerkte deaktiviert, das geklickte aktiviert und gemerkt.

[hronny]

Die Ideen find ich nicht schlecht, dazu müsste ich aber dem Parent erstmal irgendwie mitteilen das ich ein Panel gedrückt habe. Bisher funktionieren sie nur unabhängig voneinander.

[silver-moon-2000]

Zitat:

Zitat von hronny

Die Ideen find ich nicht schlecht, dazu müsste ich aber dem Parent erstmal irgendwie mitteilen das ich ein Panel gedrückt habe. Bisher funktionieren sie nur unabhängig voneinander.

Das folgende ist nur schnell getippt, kann (und wird also vermutlich auch) Fehler enthalten:

Der Code kommt in die Methode Deines Panels, in der Du "umschaltest"

Delphi-Quellcode:

...
if Parent <> nil then
begin
  for i := 0 to Parent.ComponentCount - 1 do
  begin
    if (Parent.Components[i] is = DeinPanelType) and (Parent.Components[i] <> self) then
      (Parent.Components[i] as DeinPanelType).Deactivate;
  end;
end;
...