button

[blackstersl]

как сделать круглые кнопки?

[Flenov]

Их нужно закруглить. Лучше всего это делать рисованием, например, можно легко превратить в кнопку компонент TPainBox. А можно использовать Panel и ее превратить в кнопку, а для закругления использовать SeWindowRgn. А если ты реально новичок, то torry.net тебе в строку URL и там куча круглых кнопок

[russian-stalker]

На те в борщ(Жду плюсик)

procedure TForm1.FormCreate(Sender: TObject);
var
   Region: Cardinal;
begin
  with Button1 do
    begin
     Region := CreateRoundRectRgn(100, 0, Width, Height, 99000,99000);
     SetWindowRgn(Handle, Region, True);
   end;
end;

В регион установишь нужны параметры

[Stilet]

Жду плюсик

А кнопка тут при чем?
Просто так этот код не заработает.

[russian-stalker]

Кнопка, то круглая получается

как сделать круглые кнопки?

[Stilet]

Кнопка, то круглая получается

А-а-а пардон увидел (Если капшин у кнопки пустой не так просто ее увидеть), только корявая она какая-то...

[russian-stalker]

Правкой параметров правится

procedure TForm1.FormCreate(Sender: TObject);
var
   Region: Cardinal;
begin
  with Button1 do
    begin
    height:=87;
    width:=110;
     Region := CreateRoundRectRgn(25, 0, Width, Height, 250,2500);
     SetWindowRgn(Handle, Region, True);
   end;
end;

Вот создаёт почти правильный круг, при изменении, хотя бы одного параметры, должны аналогично во столько же раз менятся другие

[beegl]

Вот нашол в интернете компонент .. ( на своем Delphi 7 не проверял). Зарание прошу прощения, если не заработает.
Смотрим вложение.