Changing color during focus changing

I want changing color to component during editing when it receives focus but with one event not by an event for component. I have a form with +30 components; I don't like copy/paste ...
g_iannettiAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

intheCommented:
hi
there is 2 options :

1:
you hold down shift while selecting all the components then can edit all components properties at once..

or
2:

somewhee on your form hold down the left mouse button and drag mouse around form making the "rubberband effect" which selects all components at once then edit all at once in object inspector.
the same as selecting many icons on your desktop at once ..

Regards Barry
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rwilson032697Commented:
You could write a single onEnet and OnExit handler and assign them to all the components. Then you can do this:

procedure TMyForm.GenericOnEnter(Sender : TObject);
begin
  if Sender is TControl then
    (Sender as TControl).Color := clPink; // or whatever
end;

And the same for the OnExit:

procedure TMyForm.GenericOnExit(Sender : TObject);
begin
  if Sender is TControl then
    (Sender as TControl).Color := clYellow; // or whatever
end;

Cheers,

Raymond.

0
g_iannettiAuthor Commented:
Thank you for fast answer.
If I understand I have to write the two procedures only ?!
Fantastic !

Tahnk you again.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.