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

Советы по Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Февраль 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Автор
Сергей

Статистика

13.545 подписчиков
-22 за неделю
←   Все выпуски   →

Советы по Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Как в Delphi сделать окно с дыркой

Эта программа делает дырку в окне. Через эту дырку видно все, что находится за окном. В дырку видно даже меняющееся изображение.
Я сделал так, чтобы окно перемещалось за любое место, поскольку заголовок у него отсутствует.
...
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;

Адрес сайта: delphi4all.narod.ru
email: delphi4all@narod.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Поиск
В избранное