Скачать: CL | DM;

TEdit   Найти похожие ветки 

← →
Exteris   (2002-09-18 13:48) [0]

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

---

← →
liho26 ©   (2002-09-18 14:52) [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;


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.011 c