Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Форма с закругленными углами

Автор: Artem91 22.2.2008, 15:14

Как сделать форму с закругленными только верхними углами (именно верхними, а не всеми) smile

Заранее спасибо)

Автор: ivan219 22.2.2008, 16:10

Смотри в сторону регионов так же посмотри в DRKB и те ссылки что внизу.

Автор: aktuba 22.2.2008, 16:11

По шаблону. Примеров в DRKB - море.

Автор: Artem91 22.2.2008, 18:14

решил сделать так:

Код


var
  R1, R2: HRgn;
begin
  R1 := CreateRoundRectRgn(0, 0, ClientWidth, ClientHeight, 20, 20);
  R2 := CreateRectRgn(0, 300, 420, 330);
  CombineRgn(R1, R1, R2, RGN_DIFF);
  SetWindowRgn(Handle, R1, True);
end;

Автор: ivan219 22.2.2008, 20:12

Цитата(Artem91 @ 22.2.2008, 18:14

)

решил сделать так:

Цитата(ivan219 @ 22.2.2008, 16:10

)

Смотри в сторону регионов

Автор: MetalFan 23.2.2008, 11:03

также стоит один регион освободить во избежании утечек...

Код


DeleteObject( R2 );

Автор: Artem91 23.2.2008, 17:34

MetalFan,
Спасибо))