Promena boje u pozadini edit-a

Promena boje u pozadini edit-a 25.01.2017. u 15:08 · pre 118 meseci #1

Imam kod za promenu boje pozadine kada se fokusira na neki edit,ali da li mogu to da uradim tako sto bih to postavio u main form,negde u recimo oncreate event,i da mi menja boje u svim formama,u celoj aplikaciji...

Re: Promena boje u pozadini edit-a 25.01.2017. u 15:56 · pre 118 meseci #2

> Imam kod za promenu boje pozadine kada se fokusira na neki edit,ali da li mogu to da uradim tako sto bih to postavio u main form,negde
> u recimo oncreate event,i da mi menja boje u svim formama,u celoj aplikaciji...

Zelis da na jednom mestu kontrolises boju svih edita u programu?
Mozda bi moglo da se resi preko stilova ili class helpera ako imas noviji Delphi, ako ne onda postoji nekoliko klasicnih pristupa:
a) Nasledis TEdit (TCustomEdit) i tu ubacis zeljenu boju i dalje koristis tu izvedenu klasu svuda
b) Subclasujes TEdit.WndProc i onda handlujes windows poruke za fokus i gubljenje fokusa i menjas boju
c) Iskopiras ceo StdCtrls.pas u dir gde ti je projekat pa izmenis direktno u fajlu sta trebas i samo rekompajliras.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Promena boje u pozadini edit-a 25.01.2017. u 16:28 · pre 118 meseci #3

Da,kao sto kontrolisem da mi umesto taba bude enter....sve iz main form,kao i jezik koji koristim,datume i slično....

Re: Promena boje u pozadini edit-a 26.01.2017. u 22:30 · pre 118 meseci #4

Mene zanima ovaj prvi nacin,jel moze neko pojasnjenje,...Dakle,kada polje bude u fokusu,da bude rezimo zuta,a kada izadje da se vrati na belu...

Re: Promena boje u pozadini edit-a 26.01.2017. u 23:17 · pre 118 meseci #5

> Mene zanima ovaj prvi nacin,jel moze neko pojasnjenje,..

Napravis novu komponentu izvedenu iz TEdit/TCustomEdit i dalje svuda nju koristis.

Kod za nju je jednostavan, otrprilike ovako

Code:

TMyEdit = class(TEdit)
protected
    procedure DoEnter; override;
    procedure DoExit; override;
public

end;

procedure TMyEdit.DoEnter;
begin
  Color := clYellow;
  inherited;
end;

procedure TMyEdit.DoExit;
begin
  Color := clWindow;
  inherited;
end;

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Forum kao aplikacija na telefonu

Srodne teme