Jak zmienić kolory dla wszystkich komponentów?

0

mam taki problem, chcialbym zmienic standardowe kolory (te z windowsa) w mojej aplikacji ale tak zeby nie naruszac ich w systemie. Dokladniej, chcialbym zmienic kolory typu clbtnface, clbackground ... na moje, tak aby zmiana byla widoczna tylko w obrębie mojego programu. Nie wiem czy cos takiego jest mozliwe, ale jesli ktos wie jak to prosze o pomoc, najlepiej przyklad bo moge sobie nie poradzic z tym :(
Chyba ze znacie inny sposób (oprócz malowania po komponencie) na zmiane kolorow na przyklad suwaków w listbox.
Z góry dzieki za odpowiedzi

0

Tu masz przykład jak zmienić kolor tła w komponencie Edit. Zmienia na kolor żółty.

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;

begin
    for i :=0 to ComponentCount -1 do
    if Components[i] is TEdit then
    TEdit(Components[i]).Color :=clYellow;
end;

Poprzerabiaj to na swoje potrzeby.

0

nie o to mu chodzilo.
to zmieni Ci tylko kolor wnetrza TEdita.
TEdit ma jeszcze ramke i chodzi tez o zmiane koloru tej ramki...

1 użytkowników online, w tym zalogowanych: 0, gości: 1