Сглаживание углов формы.

[celovec]

BorderStyle:=bsNone;

Подскажите пожалуйста как сгладить углы формы. Хочется с каждого из четырех углов убрать 1 пиксель (сделать его прозрачным).
Помогите пожалуйста, это очень важно для меня.

[ZhekON]

так работай над канвой... точки ставиш и делаеш прозрачным тот цвет которым ты зделал точки...

[celovec]

Расскажите пожалуйста подробней, я новичок в Delphi.

[ZhekON]

Canvas - это поверхность на которой возможно рисовать разные фигуры... там можно выбирать цвет карандаша(Pen), кисти(Brush) и всякие разные настройки,
пример:
Form1.canvas.pen.color:=clred;
form1.canvas.point(x,y) // - это кажысь точка, давно с этим не работал, точно не скажу...
Думаю розберёшся. УДачи!

[celovec]

С вашей идеей так и не получилось разобраться, но смотрите что я нашел:

procedure TForm1.FormCreate(Sender: TObject);
begin
  r1 := CreateRectRgn(0, 2, 250, 248);
  r2 := CreateRectRgn(2, 2, 248, 0);
  region := CreateRectRgn(0,0,250,250);
  CombineRgn(region, r1, r2, RGN_OR);
  SetWindowRgn(Handle, region, TRUE);
end;

С помощью этого у меня получилось убрать 1 пиксель с верхнего левого и правого края формы. Блин а вот с нижнего правого и левого края не получается. Подскажите пожалуйста как это сделать.

[mutabor]

procedure TForm1.FormCreate(Sender: TObject);
begin
r1 := CreateRectRgn(0, 2, 250, 248);
r2 := CreateRectRgn(2, 0, 248, 250);
region := CreateRectRgn(0,0,250,250);
CombineRgn(region, r1, r2, RGN_OR);
SetWindowRgn(Handle, region, TRUE);
end;
вообще форму можно создать любой формы (простите за тафтологию) но конечно это будет посложнее

[Трофимов Александр]

Вы уже объясняли бы для всех, а то кто нибудь начнёт читать, пробовать, а с этим ещё не сталкивался. Начнет запускать Ваш код, а он не пойдёт, так как не указано, что:
var
r1,r2,region:HRGN;

[zetrix]

Если любите работать с регионами, есть хорошая вещь: FormRGN.

[mutabor]

Сообщение от Трофимов Александр

Вы уже объясняли бы для всех, а то кто нибудь начнёт читать, пробовать, а с этим ещё не сталкивался. Начнет запускать Ваш код, а он не пойдёт, так как не указано, что:
var
r1,r2,region:HRGN;

я специально не указал, чтоб он машинально не скопировал, у него они глобальные

[Lemo]

я использовал вот ваш код

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
r1,r2,region:HRGN;
begin
r1 := CreateRectRgn(0, 2, 250, 248);
r2 := CreateRectRgn(2, 0, 248, 250);
region := CreateRectRgn(0,0,250,250);
CombineRgn(region, r1, r2, RGN_OR);
SetWindowRgn(Handle, region, TRUE);
end;

end.

И получаеться, при перетягивании формы мы пепретягиваем прямоуголник, в который вписана наша рабочая область, а не сама область перетягиваеться! Вот при перетягивании любой программы (не прямоуголной) мы же не перетягиваем прямогуголник в которую она описана!