[DELPHI] Sfondo colorato per tutti i controlli TEdit della Form

[gabcaly]

Salve,

ho diversi campi TEdit e attraverso gli eventi onClick e onExit vorrei cambiare lo sfondo da bianco a giallo rispettivamente nelle situazioni di Focus e viceversa.

Siccome sono tanti esiste un modo per creare un evento gloablaizzato per tutti i campi ed evitare ke x ciascuno di essi crei delle istanze di eventi onClick e onExit ?

procedure TForm2.Edit1Click(Sender: TObject);
begin
    edit1.Color:=clYellow;
end;


procedure TForm2.Edit1Exit(Sender: TObject);
begin
    edit1.Color:=clWindow;
end; 

Vorrei evitare di generare procedure simili.

Grazie per il prezioso contributo.

[MrCocò85]

Puoi fare in due modi.
1)Ti creai un nuova classe che eredita da tEdit e sovrascrivi i metodi onclick e onexit.
2)nel load del form, per ogni tedit associ
......
tedit1.onclick=GenericEditClick;
tedit2.onclick=GenericEditClick;
.......


E poi ti scrivi la procedura seguente

procedure TForm2.GenericEditClick(Sender: TObject);
var
myEdit:tedit;
begin
myEdit:=sender as tEdit;
myEdit.Color:=clYellow;
end;