Einzelnen Beitrag anzeigen

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#2

Re: Problem mit zusätzlicher Panel-Komponente

  Alt 27. Sep 2007, 18:49
hi, ich mach das immer so (im OnCreate)
Delphi-Quellcode:
for i:=0 to ComponentsCount do
  if (Components[i] is TIASemiPanel) then Components[i].color:=MyFarbe;
Sorry, war noch ein Fehler drin. Hier mal ein Beispiel-Code, wie ich ihn verwende:
Delphi-Quellcode:
  for i:=0 to Self.ComponentCount-1 do
   if (Components[i] is TXiButton) then begin
     (Components[i] as TXiButton).ColorScheme:=bColorScheme;
     (Components[i] as TXiButton).Cursor:=myDefault;
   end;
Karl-Heinz
  Mit Zitat antworten Zitat