Последний символ в Edit

@Cold · Регистрация: 22.05.2014

Author24 — интернет-сервис помощи студентам

Добрый день! Подскажите, как закрасить последний символ в Edit белым цветом?

@Massaraksh7 · 11.01.2018, 13:39

Написать свой TEdit

@droider · 11.01.2018, 19:17

Сообщение от Massaraksh7

Написать свой TEdit

Cold, а можно взять обычный TRichEdit и сделать так

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
with redt1 do
  begin
  Text :='DELPHI';
  SelStart :=Length(Text)-1;
  SelLength :=1;
  SelAttributes.Color :=clRed;//цвет символа - красный
  HideSelection :=True;
  end;
end;
 
end.

@droider · 11.01.2018, 19:24

если так устроит

@Cold 87 / 87 / 65 Регистрация: 22.05.2014 Сообщений: 485
		1
	Последний символ в Edit 11.01.2018, 12:46. Показов 2813. Ответов 3 Метки нет (Все метки) Добрый день! Подскажите, как закрасить последний символ в Edit белым цветом? 0

@Massaraksh7 Айлурофил 469 / 403 / 108 Регистрация: 27.05.2017 Сообщений: 2,328 Записей в блоге: 1
	11.01.2018, 13:39	2
	Написать свой TEdit 1

@droider 4914 / 2783 / 853 Регистрация: 04.10.2012 Сообщений: 10,129
	11.01.2018, 19:24	4
	если так устроит 0

Последний символ в Edit

Решение