[Михалыч]

Имеется несколько Edit. Как сделать чтобы те поля, в кот. находится курсор подсвечивались другим цветом, но при переходе с поля на поле предыдущее становилось стандартного цвета? Спасибо.

[Sharky]

если я правильно тебя понял то так. Раскажу тока схематично.

Код:

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
   твоя картинка типа подсветка := визибл; 
  end;

[Михалыч]

Нет.
Надо типа

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.

[lmikle]

А Edit.Color := clчто-то-там не пробовал?

[Михалыч]

Пробовал, не работает. А если поставить к примеру Edit1.Color := clRed, тогда только поле Edit1 становиться красным, и то при переходе к полю Edit2 оно так красным и остается.

[Vayrus]

Если не ошибаюсь Edit1.Color := clRed работает только при стандартной теме оформления Windows, также как и Label1.Color := clRed и т. п.

[Vayrus]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
I:Integer;
Temp: TComponent;
begin
for I:=0 to ComponentCount-1 do
begin
Temp := Components[i];
if (Temp is TEdit) then
begin
if (Temp as TEdit).Focused then
(Temp as TEdit).Color := clRed else
(Temp as TEdit).Color := clWindow;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=100;
Application.ProcessMessages;
end;

[san-46]

Код:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  TEdit(Sender).Color := clRed;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  TEdit(Sender).Color := clWindow;
end;

Процедуру Edit1Enter присвоить свойству OnEnter и всем другим Edit'ам, в которых нужен эффект, помимо того компонента, в котором эта процедура создана. Также и Edit1Exit присвоить свойствам OnExit всем другим Edit'ам. Цветовая схема не влияет - эффект будет в любом случае.

[Михалыч]

То что и нужно было, спасибо.