Panel.OnClick als If-Bedingung. WIE????

[Hilfesucher]

He Leute,

ich brache Hilfe bei eine If-Bedingung.
Ich will für etwa 52 Panel eine Procedure schreiben, mit der ich das angeklickte Panel Gelb färbe und beim zweiten klick wieder auf die Standartfarbe.

Damit ich nicht 52 Proceduren schreiben muss wollte ich mit FindCompnent arbeiten, doch dazu muss ich dann auch wissen welches Panel die Procedure gestartet hat.

Mein Versuch war:

Delphi-Quellcode:

var i, Panel_Zahl : integer;
begin
for i := 1 to 52 do
    begin
    if ((Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).OnClick = [b]true[/b])          {Hier ist mein Problem}
    then if (Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).color = clBtnFace
         then (Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).color := clyellow;
         else (Form4.FindComponent('Panel'+IntToStr(i)) as  TPanel).color := clBtnFace;
    end;
end;

Kann mir jemand helfen?


MsfG Hilfesucher

[.chicken]

Also wenn mich nicht alles täuscht, dann kannst du doch beim FormCreate mit einer for..to Schleife den Panels eine Prozedur zuweisen, und dazu erstellst du dann halt deine gewünschte.

z.B. so:

Delphi-Quellcode:

for i := 1 to 52 do
  F(orm4.FindComponent('Panel' + IntToStr(i)) as TPanel).OnClick := DeineProzedur;

Hoffe ich verzapf da nun keinen Müll ;-) Und das ist das was du möchtest!

[OregonGhost]

Die Eventhandler haben einen Parameter Sender vom Typ TObject. Das ist der Auslöser des Events, also in dem Fall dein Panel. Kannst du auf TPanel casten.

[raiguen]

und so sieht die Prozedure zum Farbwechsle beim Click aus

Delphi-Quellcode:

procedure DeineProzedure(Sender: TObject)
begin
  if (Sender as TPanel).Color = clSilver then
    (Sender as TPanel).Color := clYellow
  else
    (Sender as TPanel).Color := clSilver;
end;