| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TEdit

Exteris ©   (2002-09-18 13:48:00) 

День добрый !
Вопрос в следующем: когда у TEdit свойство CTL3D = false то рисуется бордюр черного цвета, можно ли изменить цвет борюра не перекрывая отрисовку компонента и не меня системный цвета ?

---

liho26   (2002-09-18 14:52:00) [1]

Можно. Примерно так:


procedure TForm1.Edit1Change(Sender: TObject);
Var
EditCanvas: TCanvas;
begin
EditCanvas:=TCanvas.Create;
EditCanvas.Handle:=GetWindowDC(Edit1.Handle);
EditCanvas.Brush.Color:=clRed;
EditCanvas.FrameRect(Edit1.ClientRect);
ReleaseDC(Edit1.Handle,EditCanvas.Handle);
EditCanvas.Free;
end;


При наборе текста цвет бордюра поменяется на красный

---

Наверх