Проблема с richedit

← →
SergP © (2003-10-12 06:28) [0]

1.Как сделать чтобы при потере фокуса выделенный текст продолжал отображаться инверсным цветом?
Мне советовали сохранять значения selstart и sellength (в потрепаться), но ИМХО что-то не то посоветовали...

← →
Zergling © (2003-10-12 07:09) [1]

Может советов не понял :)

var
SS, SC: Integer;

procedure TForm1.RichEdit1Exit(Sender: TObject);
begin
SS := RichEdit1.SelStart;
SC := RichEdit1.SelLength;
end;

procedure TForm1.RichEdit1Enter(Sender: TObject);
begin
RichEdit1.SelStart := SS;
RichEdit1.SelLength := SC;
end;

← →
SergP © (2003-10-12 07:25) [2]

> Zergling © (12.10.03 07:09) [1]
> Может советов не понял :)

:)

Да советы я то понял. Но мне нужно чтобы текст оставался выделенного цвета , в то время как фокус у другого объекта.
Ну типа как в ворде... Выделил текст и полез менять шрифт, а текст остается в это время инверсного цвета.
А этот совет, который мне дали и для которого ты написал код - он только восстанавливает выделение когда фокус возвращается к richedit...

← →
Zergling © (2003-10-12 07:31) [3]

Property у него есть :) HideSelection := False

> Zergling © (12.10.03 07:31) [3]
> Property у него есть :) HideSelection := False

Большое спасибо... Вот это то что мне было нужно...

Проблема с richedit Найти похожие ветки