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

Программирование от Судьи [www.del5.da.ru] Выпуск от 2/06/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.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION));
Height := ClientHeight;
end;

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

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

 

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

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

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

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

На последок:

- Анекдот

Пришел Буратино к папе Карло:
- Папа, а я с Мальвиной познакомился!
- Ну и что? - Как это что?
Сделай мне сучок!
Сделал Карло сыну сучок. Ушел Буратино и вскоре назад вернулся.
- Ну как, сынок, Мальвина довольна?
- А зачем мне Мальвина, у меня наждачка есть!


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

В избранное