Нет.
Надо типа
procedure TForm1.Edit3Enter(Sender: TObject);
begin
with Sender as TEdit do
Font.Color:=clRed;
end;
procedure TForm1.Edit3Exit(Sender: TObject);
begin
with Sender as TEdit do
Font.Color:=clWindowText;
end;
только в данном случае цвет шрифта в полях ввода меняется на красный в Edit, в которых находится курсор, а нужно тоже самое только чтобы цвет шрифта к примеру был черный, а менялся цвет заливки активного (т.е. в кот. находится курсор) Edita.
|