Title на форме. Как можно перерисовать caption на form? Или убрать его и вместо использовать картинки

[Шульц]

Как можно перерисовать титл на форме? Кроме как убрать его и вместо использовать картинки.
Или как можно сделать что бы форма не имеющая бордоров могла изменять размер? То есть как будто они там есть.

[Alar]

Что такое бордоры?

form1.BorderStyle:=bsSizeToolWin;

- без картинки с синей полоской и изменяющимеся размерами.

Рисовать можно на form1.Canvas

[Шульц]

Бордоры - это полоски по сторанам с помощью которых изменяется размер.

form1.BorderStyle:=bsSizeToolWin;

При этом не уберается верхняя полоска. Я просто хочу сделать свой титл. ТО есть сделать полностью свое оформление формы, без всяких частей винды. И желательно на стандартных компонентах.

[mihali4]

Я просто хочу сделать полностью свое оформление формы, без всяких частей винды. И желательно на стандартных компонентах.

Так пойдет? Никаких альфаскинов и прочих "прибамбасов" при построении формы:
http://yaproger.ru/ftp/DFaq.rar

[Alar]

Используйте на здоровье...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
      procedure CreateParams(var Params: TCreateParams); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 procedure TForm1.CreateParams(var Params: TCreateParams) ;
begin
  BorderStyle := bsNone;

  inherited;

  Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
  Params.Style := Params.Style or WS_SIZEBOX;
end;


end.

[Шульц]

А можно как то сделать что бы края были не стандартными, а просто черная линия? Но и при этом менялся размер?

[Шульц]

2mihali4, Ваша почему то не могу скачать

[mihali4]

Сообщение от Шульц

2mihali4, Ваша почему то не могу скачать

Правой мышкой - "Сохранить по ссылке как..."

[ViktorXP]

Сообщение от Шульц

Как можно перерисовать титл на форме?

гдето так

type
  TForm1 = class(TForm)
  private
    procedure MyPaint(var d: TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;


procedure TForm1.MyPaint(var d: TWMNCPaint);
var
  DC: THandle;
  Brush: TBrush;
begin
  DC := GetWindowDC(Handle);
  Brush := TBrush.Create;
  try
    Brush.Color := clBlue;
    FillRect(DC, Rect(0,0,Width, 28), Brush.Handle);
    FillRect(DC, Rect(0,0,8, Height), Brush.Handle);
    FillRect(DC, Rect(Width-8,0,Width, Height), Brush.Handle);
    FillRect(DC, Rect(0,Height-8,Width, Height), Brush.Handle);
  finally
    ReleaseDC(Handle, DC);
    Brush.Free;
  end;
end;

цыфра 8 и 28 взяты методом подбора. но для правильности нужно вычислять из разных параметров (высота заголовка, высота бордюра и тому подобного) которое делается с помощю GetSystemMetrics

[Шульц]

Правой мышкой - "Сохранить по ссылке как..."

Не открывается, идет какое-то ресование, и так долго, а когда заканчивается, то ничего не появляется