Главная страница
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.011 c
14-98320
France
2002-09-05 10:01
2002.09.30
Странности с помощью в Делфи 6


14-98294
still
2002-09-04 14:05
2002.09.30
Опять про железо


6-98255
Mittler
2002-07-29 00:15
2002.09.30
Запрос каталога файлов с удалённой машины, используя модуль NMFTP


14-98350
Val
2002-09-06 11:19
2002.09.30
TP - ностальгия


3-98022
bobr12
2002-09-10 13:03
2002.09.30
Опять Excel и InterBase