type
TForm1 = class(TForm)
...
private
FPrevCtrlFocused: TWinControl;
procedure ActiveCtrlChange(Sender: TObject) ;
public
end;
...
implementation
procedure TForm1.ActiveCtrlChange(Sender: TObject);
begin
if FPrevCtrlFocused is TEdit then
TEdit(FPrevCtrlFocused).Color:= clWindow;
if Screen.ActiveControl is TEdit then
begin
TEdit(Screen.ActiveControl).Color:= clMoneyGreen;
FPrevCtrlFocused:= ActiveControl;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := ActiveCtrlChange;
FPrevCtrlFocused:= Screen.ActiveControl;
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
Screen.OnActiveControlChange:= nil;
end;