![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как сделать кнопки овальные [D5, Win95/98, WinXP]
ZEP © (2002-09-15 14:56:00)подскажите кто нибудь как сделать кнопки овальные
Malder (2002-09-15 19:42:00) [1]Например так:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowRgn(Button1.Handle, CreateEllipticRgn(0,0,button1.width,button1.height), TRUE);
end;
где button1 - изменяемая кнопка
Безумный Кадастрат вер. 2.0 бета (2002-09-15 18:02:00) [2]Это вопрос по написанию компонента?
zam2000 (2002-09-15 15:10:00) [3]SetWindowRgn
Ketmar (2002-09-15 15:05:00) [4]обрезать им углы %-) CreateEllipticRgn
Satanas Nobiscum! 15-Sep-XXXVII A.S.