Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Смена цвета заголовка формы

Автор: GORA 15.10.2007, 21:58

Появилась загвостка: нужно сменить цвет заголовка окна, либо можно конечно использовать например IMAGE, на котором отрисовывать заголовок. Есть ли у кого предложения по обоим вариантам, предпочтительнее конечно вариант первый

Автор: Savek 16.10.2007, 08:25

В простейшем случае так:

Код


procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
...

...
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
 var
   ACanvas: TCanvas;
 begin
   inherited;
   ACanvas := TCanvas.Create;
   try
     ACanvas.Handle := GetWindowDC(Form1.Handle);
     with ACanvas do
      begin
       Brush.Color := clRed;
       FillRect(Rect(0,0,Form1.Width,30));
     end;
   finally
     ReleaseDC(Form1.Handle, ACanvas.Handle);
     ACanvas.Free;
   end;

 end;