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