Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Strahlex,
27. Sep 2007
:arrow: THX an alle, ich habe jetzt die Lösung gefunden! :!:
for i:=0 to Self.ComponentCount-1 do
if (Components is TIASemiPanel) then
if (Components as TIASemiPanel).Name = 'semiPanel1' then begin
(Components as TIASemiPanel).Color:=color1;
(Components as TIASemiPanel).Color1:=color1;
end;
achja ich habe wirklich 50 Panels in meiner Anwendung :???:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Strahlex,
27. Sep 2007
Ich habe in meinem Projekt 50 Panels die ich gleichzeitig umfärbe. Das mache ich mittels dieser GetObjectByName:
function tform1.GetObjectByName(ctrlName: string): TObject;
var
i: Integer;
begin
Result := nil;
for i := 0 to form1.ComponentCount -1 do
begin
if frmEditor.Components.Name = ctrlName then
begin