Delphi Круглая Форма

Создание круглой формы в Delphi может показаться довольно сложным процессом, но на самом деле все оказывается достаточно просто. Как правило, фон такой формы должен быть прозрачным.

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

procedure TForm1.FormCreate(Sender: TObject);var  P: TPicture;  Bitmap: TBitmap;  R: TRect;begin  Bitmap := TBitmap.Create;  try    P := TPicture.Create;    try      P.LoadFromFile('circle.png');//загружаем созданное изображение      Bitmap.Assign(P.Graphic);      R := Rect(0, 0, Bitmap.Width, Bitmap.Height);//задаем границы изображения      Bitmap.Canvas.CopyRect(ClientRect, Bitmap.Canvas, R);      TransparentColor := Bitmap.Canvas.Pixels[0, Bitmap.Height - 1];//задаем прозрачность      Transparent := True;    finally      P.Free;    end;  finally    Bitmap.Free;  end;end;

В данном примере для круглой формы загружается png-изображение, которое в дальнейшем копируется на canvas формы с заданием прозрачного фона за счет задания порогового цвета TransparentColor.