Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как сделать кнопки овальные [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.


Наверх

Титульная страница Поиск, карта сайта Написать письмо