Окна не Квадратной формы?

← →
SGh © (2003-02-17 21:18) [0]

Товарищи, помогите, по зарез надо сделать окно с "дырками" ну как у Winampa Когда со скином, то если в скине дырка и по ней клацнуть мышей, клацается по окну за Winampom, или просто не квадратное а круглое, как это делается?
Заранее благодарен...

← →
Pat © (2003-02-17 22:14) [1]

SetWindowRgn()

← →
freeek10 (2003-02-17 23:25) [2]

Пример был на королевстве дельфи www.delphikingdom.com

← →
Diamond Cat © (2003-02-18 00:29) [3]

procedure TForm1.FormCreate(Sender: TObject);
var
RReg, Reg : HRGN;
begin
RReg := CreateEllipticRgn(4,30,54,78);
Reg := CreateEllipticRgn(19,44,39,64);
CombineRgn(RReg,RReg,Reg,RGN_DIFF);
SetWindowRgn(Handle, RReg, False);
end;
круглое окно с дырой посередине

← →
SGh © (2003-02-18 11:46) [4]

Спасибо всем кто отКЛИКнулся :)

2Diamond Cat
А не подскажешь как чтобы вообще произвольной формы, например сердца, или наложением ридженов друг на друга?

← →
Игорь Шевченко © (2003-02-18 12:30) [5]

SGh © (18.02.03 11:46)

Статья Антона Григорьева на www.delphikingdom.com

← →
DarkGreen © (2003-02-18 13:40) [6]

2 SGh © (18.02.03 11:46)

Diamond Cat © (18.02.03 00:29) тебе уже подсказал

procedure TForm1.FormCreate(Sender: TObject); var RReg, Reg : HRGN; begin RReg := CreateEllipticRgn(4,30,54,78); Reg := CreateEllipticRgn(19,44,39,64); CombineRgn(RReg,RReg,Reg,RGN_DIFF); SetWindowRgn(Handle, RReg, False); end;

Спасибо всем теперь буду делать окна 128-угольными :)))

2 Игорь Шевченко

А у Андрея Григорьева, я нашел только про прозрачные окна, ты её имел ввиду? Я это тоже давно мечтал сделать, спасибо... :)

← →
Reindeer Moss Eater (2003-02-19 12:20) [8]

Очень простой код, создающий неквадратное окно:
with TForm.Create(nil) do
try
ShowModal;
finally
Free;
end;

← →
Антон. (2003-02-19 17:59) [9]

Удалено модератором
Примечание: Задай вопрос в своей ветке

Окна не Квадратной формы? Найти похожие ветки