Овальный Button

[Experementator]

Можно ли сделать кнопочку Button овальной и изменить ей цвет? Если можно скажите как.

[Манжосов Денис :)]

Конечно не знаю устроит ли такой вариант. Можно ведь использовать компонент tImage и загрузить туда рисунок. А ещё, сам правда не пробовал, но если использовать Button1.canvas.brush.color := clred; button1.canvas.rectangle(0, 0, button1.width, button1.height). Попробуйте так.

[BOBAH13]

"кнопочка Button" это имееться ввиду TButon ? Если Да, то ответ НЕТ. И ненадо начинать, тут высказывать способы типа TImage а то щас флуд попрет что не остановиш.

[B_N]

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

"кнопочка Button" это имееться ввиду TButon ? Если Да, то ответ НЕТ. И ненадо начинать, тут высказывать способы типа TImage а то щас флуд попрет что не остановиш.

Ну это слишком категорично

procedure TForm1.FormCreate(Sender: TObject);
var
    BtnRect : TRect;
    ppt : ^TPoint;
    BtnRgn : HRGN;
begin
    windows.GetWindowRect(self.Button1.Handle, BtnRect);

    ppt := @BtnRect.Left;
    windows.ScreenToClient(self.Button1.Handle, ppt^);
    ppt := @BtnRect.Right;
    windows.ScreenToClient(self.Button1.Handle, ppt^);

{
Всю конструкцию выше можно заменить на
windows.GetClientRect(self.Button1.Handle, BtnRect);
}

    BtnRgn := CreateEllipticRgn(
                    BtnRect.Left,
                    BtnRect.Top,
                    BtnRect.Right,
                    BtnRect.Bottom);
    SetWindowRgn(self.Button1.Handle, BtnRgn, TRUE);
    self.Color := clWhite;
end;

[BOBAH13]

А цвет ? Сомниваюсь что будет работать

[B_N]

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

А цвет ? Сомниваюсь что будет работать

Работает, работает... Не сумлевайтесь. Ну а с цветом - как обычно - перехват оконной функции, например, или компонент - наследник TButton...

[Experementator]

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

Работает, работает... Не сумлевайтесь. Ну а с цветом - как обычно - перехват оконной функции, например, или компонент - наследник TButton...

Работает. Спасибо за помощь.