Заставить компонент оставаться в пределах клиентской области

[harmager]

Доброго времени суток, уважаемые форумчане. Сразу к проблеме: на форме присутствует компонент JvCaptionPanel, который можно перемещать по клиентской области окна. Как запретить компоненту выходить за границы клиентской области?

Заранее благодарен.

[Filka]

procedure TForm1.JvCaptionPanel1EndAutoDrag(Sender: TObject);
begin
  if JvCaptionPanel1.Top < 0 then
    JvCaptionPanel1.Top := 0
  else if (JvCaptionPanel1.Top + JvCaptionPanel1.Height) > ClientHeight then
    JvCaptionPanel1.Top := ClientHeight - JvCaptionPanel1.Height;

  if JvCaptionPanel1.Left < 0 then
    JvCaptionPanel1.Left := 0
  else if (JvCaptionPanel1.Left + JvCaptionPanel1.Width) > ClientWidth then
    JvCaptionPanel1.Left := ClientWidth - JvCaptionPanel1.Width;
end;

?

[harmager]

Спасибо, попробую и отпишусь