|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Акшн перемещения окна??
Вопервых всех программеров с новым годом!!!!!
И вопросик. Не подскажите акшн перемещения окна? Я за мучался методом тыка узнавать. Мне не ресайз нужен а именно когда окошко берешь и тащишь. Желательно когда начинаешь уже перетаскивание чтоб акшн сработало. Вообщем хочу прилипающие окошки сделать и чтоб окошко всегда с окошком таскалось. А в таймере это делать не охота. Занимать только время.. |
#2
|
||||
|
||||
Такой вариант тебя устроит?
FormControl - http://decoding.narod.ru/download/my...ml#FormControl. |
#3
|
|||
|
|||
Как всегда тебе огромное отдельное СПАСИБО!!
И непонимаю почему Дельфи дошел до 7-й версии и до сих пор такой кастрированный?? Последний раз редактировалось Delphinic, 01.01.2007 в 20:44. |
#4
|
|||
|
|||
Цитата:
Ругается Access Violation на строчку 249. if Assigned( FOnFormMove ) then FOnFormMove( Self, Rect.Left, Rect.Top ); Ругается при запуске программы. Последний раз редактировалось Delphinic, 01.01.2007 в 22:15. |
#5
|
|||
|
|||
До меня доперло. Я пытаюсь делать операции с еще не созданной формой.
Вот только надо теперь придумать как это делать когда все формы скрейтились. |
#6
|
||||
|
||||
Что, и демонстрационный пример глючит? Странно, у меня все нормально... Попробуй добавить в обработчик что-то типа
Код:
procedure TForm1.FormControl1FormMove(Senser: TObject; X, Y: Integer); begin if ( Self <> nil ) and ( Self.Visible ) then begin // необходимые действия end; end; Последний раз редактировалось Decoding, 01.01.2007 в 23:00. |
#7
|
|||
|
|||
Да нет с компонентом все в порядке.
Это я не правильно делал. Я обошел это. Надо было просто не давать работать компоненту пока не создастся та форма которой я управляю с помощью акшнсов. |