[Delphinic]

Вопервых всех программеров с новым годом!!!!!
И вопросик. Не подскажите акшн перемещения окна?
Я за мучался методом тыка узнавать.
Мне не ресайз нужен а именно когда окошко берешь и тащишь.
Желательно когда начинаешь уже перетаскивание чтоб акшн сработало.
Вообщем хочу прилипающие окошки сделать и чтоб окошко всегда с окошком таскалось.
А в таймере это делать не охота. Занимать только время..

[Decoding]

Такой вариант тебя устроит?
FormControl - http://decoding.narod.ru/download/my...ml#FormControl.

[Delphinic]

Как всегда тебе огромное отдельное СПАСИБО!!

И непонимаю почему Дельфи дошел до 7-й версии и до сих пор такой кастрированный??

[Delphinic]

Сообщение от Decoding

Такой вариант тебя устроит?
FormControl - http://decoding.narod.ru/download/my...ml#FormControl.

У меня этот компонент почему то глючит.
Ругается Access Violation на строчку 249.
if Assigned( FOnFormMove ) then FOnFormMove( Self, Rect.Left, Rect.Top );
Ругается при запуске программы.

[Delphinic]

До меня доперло. Я пытаюсь делать операции с еще не созданной формой.
Вот только надо теперь придумать как это делать когда все формы скрейтились.

[Decoding]

Что, и демонстрационный пример глючит? Странно, у меня все нормально... Попробуй добавить в обработчик что-то типа

Код:

procedure TForm1.FormControl1FormMove(Senser: TObject; X, Y: Integer);
begin
   if ( Self <> nil ) and ( Self.Visible ) then
  begin
      // необходимые действия
   end;
end;

[Delphinic]

Да нет с компонентом все в порядке.
Это я не правильно делал.
Я обошел это. Надо было просто не давать работать компоненту пока не создастся та форма которой я управляю с помощью акшнсов.