форму трясет при движении

← →
Максим (2008-01-25 19:29) [0]

почему форму трясет?
в form1ondown:
X := search.Left - search.ScreenToClient(Mouse.CursorPos).X;
Y := search.Top - search.ScreenToClient(Mouse.CursorPos).Y;
Repeat
search.Left := X + ScreenToClient(Mouse.CursorPos).X;
search.Top := Y + ScreenToClient(Mouse.CursorPos).Y;
Application.ProcessMessages;
Sleep(10);
Until ((GetAsyncKeyState(VK_LBUTTON) And $8000) = 0);

← →
Kolan © (2008-01-25 19:39) [1]

что такое search?

← →
{RASkov} © (2008-01-25 19:40) [2]

> [0] Максим (25.01.08 19:29)
> почему форму трясет?

Это нормальто)
С таким кодом это нормально....

Ты лучше скажи тебе что нужно-то, форму перемещать за клиенскую часть?

> [1] Kolan © (25.01.08 19:39)

Попробую угадать.... это наверное self т.е. его форма, которую трясет :)

← →
Kolan © (2008-01-25 19:46) [3]

> Попробую угадать&#133 это наверное self т.е. его форма, которую
> трясет :)

Ты телепатор обновил что ли? Хорошо угадываешь&#133 :)

← →
Максим (2008-01-25 19:47) [4]

вторая форма создается self.
но это из-за того что я наследую ее от главной формы т.е. new_form := TSearch.Create(self);
может с самой формой чето накосячил Search

← →
Kolan © (2008-01-25 19:54) [5]

> но это из-за того что я наследую ее от главной формы т.е.
> new_form := TSearch.Create(self);

Тут нет наследование от гл. формы.
Тут есть создание с назначением гл. формы владельцем.

← →
{RASkov} © (2008-01-25 19:59) [6]

> [4] Максим (25.01.08 19:47)

Ты задачу свою так и не хочешь сказать? ну как хочешь....(

> [3] Kolan © (25.01.08 19:46)
> Хорошо угадываешь… :)

> form1ondown:
> X := search.Left

form1ondown и search.Left
Хм... а я только потом это увидел :)

> > Тут есть создание с назначением гл. формы владельцем.

Поправка... Владелец будет не обязательно гл. форма, а объект, в методе которого, выполняется данный код. т.е.:

> new_form := TSearch.Create(self);

← →
Максим (2008-01-25 20:02) [7]

просто я увидел тему про плагины(bagos"a) и у меня те же проблемы были, вот я у себя тоже думаю это дело поправить.
сначала делал так
для
type TForm1 = class(TForm) .. .. procedure CreateParams(var Params: TCreateParams); override; ... end; TFormXZ = class(TForm) ... procedure CreateParams(var Params: TCreateParams); override; ... end;

Form1 - это основное окно.
FormXZ - это создал для того чтобы у динамически созданной формы тоже срабатывал createparams, но вылезает ошибка.

После я убрал FormXZ и делал так

var
new_form : TForm1;
...
... .. ..
new_form := tform1.create(self);

createparams срабатывал для обеих форм, вроде как и должно быть, но только движение формы стало "дергаться"

← →
{RASkov} © (2008-01-25 20:08) [8]

> [7] Максим (25.01.08 20:02)
> FormXZ - это создал для того чтобы у динамически созданной
> формы тоже срабатывал createparams, но вылезает ошибка.

ВСЕ формы создаются динамически.... т.е. в рантайм.... И не нужно ничего для этого мудрить...

> После я убрал FormXZ и делал так
>
> var
> new_form : TForm1;
> ...
> ... .. ..
> new_form := tform1.create(self);

А приведика сюда реализацию procedure TForm1.CreateParams(var Params: TCreateParams);
Наверняка инхеритед забыл...)

← →
Максим (2008-01-25 20:10) [9]

да нет не забыл
procedure Tform1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
Params.WndParent := GetDesktopWindow;
end;

← →
{RASkov} © (2008-01-25 20:15) [10]

> [9] Максим (25.01.08 20:10)

Еще раз по ветке. Что за задача у тебя и что не получается?

Про то что форму трясет, я уже слышал.... может у нее температура? Или отходняк.... перебрала вчерася
:о)

← →
Максим (2008-01-25 20:21) [11]

:)
короче я тоже пытаюсь разобраться с плагинами. нашел тут свежую ветку, в которой решился вопрос как прятать кнопку плагина с панели задач.
У меня в плагине(форма в плагине - форм1) по нажатию на кнопку создается еще одна форма(далее форм2).
Получается две кнопки на панели задач(плагинская форма(форм1) и еще которую он создает по кнопке(форм2)).
когда засовываю в createparams в type tform1 = class(tform) >here<
то форм1 кнопка на панели задач исчезает. остается там кнопка от форм2.
ее тоже надо убрать. вот этим я и мучаюсь :)))

← →
{RASkov} © (2008-01-25 20:35) [12]

> [11] Максим (25.01.08 20:21)
> ее тоже надо убрать.

А зачем тогда про отходняк моск паришь? :)

Сам не знаешь чего хочешь :(
Давай соберись... глянь еще раз в форуме готовые ответы.... в яндекс заглени... в гугл...
И если ничего путевого не найдешь, то попробуй задать вопрос по новому.... в новой ветке...
Главное сформулируй его понятно, ок?

ЗЫ: А плугин это что? DLL"ина или еще чего...

← →
{RASkov} © (2008-01-25 20:37) [13]

> [11] Максим (25.01.08 20:21)
> ее тоже надо убрать.

услуги Хитмана ищи не на этом форуме :)

ЗЫ: А сколько платишь? :)

← →
Максим (2008-01-25 20:37) [14]

плохо наверно объясняю :(
в качестве плагина использую dll

← →
{RASkov} © (2008-01-25 20:41) [15]

> [14] Максим (25.01.08 20:37)
> в качестве плагина использую dll

Посмотри в сторону BPL... наверняка много "вкусностей" найдешь :)

также глянь
http://www.delphisources.ru/pages/faq/base/little_about_plugins.html
или вот
http://www.yandex.ru/yandsearch?clid=9582&text=Plugin+%2B+BPL

← →
Максим (2008-01-25 20:56) [16]

чето менял-менял, делал-делал, решил вернуть к тому как было в начале...
в результате работает как надо...вот млин бывает же :)

Статьи о плагинах:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=468
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=512
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=274

Рекомендую.

> Amoeba © (25.01.08 21:53) [17]

> Рекомендую.

Вторую ссылку никак нельзя рекомендовать.
Лучше уж http://softwarer.ru/packages.html

--
Regards, LVT.

> Leonid Troyanovsky © (26.01.08 11:35) [18]
>
>
> > Amoeba © (25.01.08 21:53) [17]
>
> > Рекомендую.
>
> Вторую ссылку никак нельзя рекомендовать.
> Лучше уж http://softwarer.ru/packages.html

Рекомендовал отнюдь не как руководство к действий, но лишь как информацию к размышлению.

> форму трясет при движении

Не знаю почему, но вспомнилось:

- Алло? Служба поддержки? А Вы не знаете, почему, когда я грызу сухари, у меня изображение на мониторе дрожит?

← →
xujxb (2008-01-29 20:29) [21]

<a href= http://ezgwa.com/ugtytgty.html >Google</a>

← →
xujxb (2008-01-29 20:29) [22]

<a href= http://ezgwa.com/ugtytgty.html >Google</a>

форму трясет при движении Найти похожие ветки