Текущий архив: 2002.09.30;
Скачать: 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 вся ветка
Текущий архив: 2002.09.30;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.017 c
