Einzelnen Beitrag anzeigen

silver-moon-2000

Registriert seit: 18. Feb 2007
Ort: Schweinfurt
170 Beiträge
 
Delphi XE Professional
 
#5

Re: viele Panels mit OnClick, bei click nur eins "gedrü

  Alt 27. Nov 2008, 23:09
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;
...
Tobias
Bitte nicht hauen , ich weiß es nicht besser
  Mit Zitat antworten Zitat