Изменение видимой части формы

[niki2012]

Мне необходимо создать прямоугольную форму, у которой в левом верхнем углу будет круг, три четверти которого лежат вне формы (то бишь центр круга - угол прямоугольника). Пожалуйста, набросайте код...

[Stilet]

Хм... Никогда не интересовался скинами всерьез, но могу предложить такое:http://delphiworld.narod.ru/base/forms_bmp_shape.html

[Vaigard]

Если тебе нужен просто рисунок круга, то нарисуй его на экране в соответствующем месте.

[niki2012]

мне нужна именно форма нестандартного вида (для красоты)

[MyLastHit]

Вот мое решение в 6 строк кода, + супернереальная фича - можно форму перетаскивать за эти кружочки и квадратики

[asmodey1]

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

Мне необходимо создать прямоугольную форму, у которой в левом верхнем углу будет круг, три четверти которого лежат вне формы (то бишь центр круга - угол прямоугольника). Пожалуйста, набросайте код...

Набросайте сами. Заодно и разберетесь.
Вот пример :
http://www.programmersforum.ru/showp...74&postcount=5
И не забывайте про волшебную клавишу F1 при этом.
Всего-то нужно немного подумать - что отрезать, а что оставить...

[MyLastHit]

Кстати есть решение похуже - через таймер. Но тоже имеет право на жизнь.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var r1,r2,r3:HRGN;
begin
 r1:=CreateRectRgn(0,0,0,0);
 r2:=CreateEllipticRgn(0,0,200,200);
 r3:=CreateRectRgn(100,100,width,height);
 CombineRgn(r1,r2,r3,RGN_OR);
 setwindowrgn(handle,r1,true)
end;

[MyLastHit]

и че это за хрень?
Результат ужасный.

[SERG1980]

И в чём же хрень????