Перемещение окна

[X@OC]

Доброго времени сток

Пишу для себя Бинарные часы

Delphi 7
свойства формы

BorderStyle(bsNone);
form1.TransparentColor:=not(form1.TransparentColor);

в итоге форма полностью отсутствует кроме находящихся в ней элементов
форму передвигать не как, пытался при зажатии на элемент Panel1 передвигать окно, но ничего не получается

пытался передвигать по такой формуле
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
...
tmp_x:=abs(X-Form1.Left);
tmp_y:=abs(Y-Form1.Top);
...
form1.Left:=form1.Left-tmp_x;
form1.top:=form1.top-tmp_y;
...

помогите разобраться пожалуйста

[mihali4]

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;

Этот кусочек соpца надо подцеплять в обpаботчик OnMouseDown контpола, за котоpый будем таскать.

Сообщение от X@OC

свойства формы

BorderStyle(bsNone);
form1.TransparentColor:=not(form1.TransparentColor);

в итоге форма полностью отсутствует кроме находящихся в ней элементов

С какого перепуга форма будет отсутствовать ???
Шапки у формы не будет, а сама форма - вот она, в наличии...

[X@OC]

mihali4 спасибо за ответ и за процедурку

но форма действительно становиться проницаемой
цвет ставлю черным
выполняется

form1.TransparentColor:=not(form1.TransparentColor);

и

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;

перестает работать т.к. не на что нажимать

поэтому я пытаюсь нажимать на элемент и перетаскивать форму

может есть другой способ?

[tsar_]

Обычно такие окна (если я правильно понял, что выхотите делать) выполняются с помощью регионов. Вот, может эта статейка поможет с технологией:
http://raxp.radioliga.com/cnt/s.php?p=k6.djvu

[belkiska]

с 21:00 по Киеву начались жуткие задержки, в скором времени начались критовать окна.После обновил апдейтером антивирус отключен зашел и снова критует окна.поспрашивав у соклановцев тоже есть такие же проблемы.прошу рассмотреть и найти проблему

[X@OC]

все разобрался

выше указанную процедуру поставил не на форму а на нажимаемый элемент

всем спасибо