Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование от Судьи [www.del5.da.ru] Выпуск от 30/05/2002 года


Информационный Канал Subscribe.Ru


- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

================================================================================

Сделать окно с дыркой

 

private
procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
...

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
inherited;
Msg.Result := HTCAPTION;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
r, r1: hRgn;
begin
Form1.BorderStyle := bsNone;

Width := 400;
Height := 200;
r := CreateEllipticRgn(0, 0, 400, 200);
r1 := CreateRoundRectRgn(150, 60, 250, 140, 20, 10);
CombineRgn(r, r1, r, RGN_XOR);
SetWindowRgn(Form1.Handle, r, true);
end;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

В данный момент нет никаких ссылок:

На последок:

- Анекдот

Девушка стоит на балконе, а мимо идет мужчина.
Девушка вдруг как крикнет:
- Мужчина! Я вас боюсь!
- Чего это вы меня боитесь?
- А вы меня изнасилуете.
- Так как же я вас изнасилую, если я внизу, а вы на балконе?!
- А я сейчас к вам спущусь...


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное