Изменение цвета рамки формы

[Jene4ka]

Здравствуйте!
Сколько работаю в делфи,а так и не знаю, как поменять цвет рамки у формы. Подскажите пожалуйста))Заранее спасибо

[mihali4]

Рисуем прямоугольник любого цвета по краю формы и все...
LineTo()
MoveTo()

З.Ы. Только BorderStyle лучше сделать bsNone.

[Jene4ka]

но при этом стандартная рамка же останется?

[mihali4]

А вы попробуйте...

[Jene4ka]

эээ,я с этими линиями вообщем-то не особо дружу, но постараюсь))

[mihali4]

Вот вам примитивный примерчик:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
Pen.Color:=clRed;
Pen.Width:=3;
MoveTo(0,0);
LineTo(0,Height-3);
LineTo(Width-3,Height-3);
LineTo(Width-3,0);
LineTo(0,0);
end;
end;

end.

[Jene4ka]

ну да,оно прорисовала рамку вокруг формы.но верхняя-то часть как была так и осталась, в плане та, где название и пиктограмма

[Вавел из ГМТУ]

Сообщение от mihali4

....
З.Ы. Только BorderStyle лучше сделать bsNone.

Тут ответ.....

[Jene4ka]

ну да, теперь названия формы и пиктограмм нет вообще:-))

[mihali4]

Сообщение от Jene4ka

ну да,оно прорисовала рамку вокруг формы.но верхняя-то часть как была так и осталась, в плане та, где название и пиктограмма
...
ну да, теперь названия формы и пиктограмм нет вообще

Вот ваш вопрос:

как поменять цвет рамки у формы

И где, позвольте узнать, идет речь о шапке формы?