Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
14-98310
Vlad2
2002-08-29 15:17
2002.09.30
*.avi файлы


7-98371
elgato
2002-07-14 15:46
2002.09.30
Запустить процесс с привелегиями системы !


14-98315
ArtArt
2002-09-04 19:10
2002.09.30
HELP!!!


1-98042
Semion
2002-09-19 07:15
2002.09.30
Pchar в String


14-98296
Eduard
2002-09-02 16:02
2002.09.30
Как зарегистрироваться на Борланде ?