Перетаскивать окно за любую точку.

Сейчас на форуме: tyns777, JustLife, zds, 2nd, morgot, Rio, CDK123, tihiy_grom (+4 невидимых)

. 1 . 2 . >>

Посл.ответ	Сообщение
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 06 февраля 2009 22:04 · Поправил: Mavlyudov · Личное сообщение · #1 Если делать для стандартного приложения в делфи, то перетаскивание будет выглядеть вот так: public procedure ttt(var M:TMessage); message WM_NCHITTEST; end; ....................................... procedure TForm1.ttt(var M:TMessage); begin inherited; if M.Result = htClient then M.Result := htCaption; end; Но у меня консольное приложение, в котором я решил создать форму: form: TForm; form := TForm.Create(Application); ......... Как тут сделать перетаскивание??? нужно ведь как-то динамически привязать message к форме... Что-то типа ReleaseCapture; form.perform(WM_SysCommand, $F012, 0); не помогает..

g-l-u-k Ранг: 138.1 (ветеран) Активность: 0.09↘0 Статус: Участник Одепт ЭкзэЛаба	Создано: 06 февраля 2009 22:19 · Личное сообщение · #2 Я делаю так: Code: WM_LBUTTONDOWN: begin ReleaseCapture; SendMessage(hWin, WM_NCLBUTTONDOWN, HTCAPTION, 0); end;
Stack Ранг: 107.5 (ветеран) Активность: 0.15↘0 Статус: Участник	Создано: 06 февраля 2009 22:19 · Личное сообщение · #3 Mavlyudov form.onmousedown? ----- Md5 fcbb6c9c9a5029b24d70f2d67c7cca74
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 06 февраля 2009 22:35 · Поправил: Mavlyudov · Личное сообщение · #4 g-l-u-k Что-то я не вижу, куда обработчик вставить... Code: var form: TForm; FormThread: THandle; procedure FormWork; var x:integer; begin form := TForm.Create(Application); form.BorderStyle:=bsNone; form.Visible:=true; form.Width:=500; form.Height:=300; end; procedure CreateFrm; var ThreadID:dword; begin FormThread := CreateThread(nil,0,@FormWork,nil,0,ThreadID); end; begin CreateFrm; readln; end.
g-l-u-k Ранг: 138.1 (ветеран) Активность: 0.09↘0 Статус: Участник Одепт ЭкзэЛаба	Создано: 06 февраля 2009 22:51 · Личное сообщение · #5 Mavlyudov пишет: g-l-u-k Что-то я не вижу, куда обработчик вставить... Забыл сказать что этот кодес я использую в связке delphi + winapi чтобы перетаскивать форму за любую область.
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 06 февраля 2009 22:52 · Поправил: Mavlyudov · Личное сообщение · #6 g-l-u-k это и так понятно..А как мне в мой код внедрить? Может можно как-то через функцию Dispatch(M) ?
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 07 февраля 2009 02:23 · Личное сообщение · #7 Mavlyudov Вот, проверенно, 100% работат. procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform (WM_SYSCOMMAND,SC_MOVE+2,0); end;
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 07 февраля 2009 02:43 · Поправил: Mavlyudov · Личное сообщение · #8 F_a_u_s_t Ну ты молодец конечно. Где ты такие процедуры возьмешь? У меня не стандартное приложение делфи! Весь код я привел выше и туда не получится вставить то, что ты написал!
Halt Ранг: 65.7 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 07 февраля 2009 03:11 · Поправил: Halt · Личное сообщение · #9 Mavlyudov слушай если ты форму создаешь все равно руками дык сделай ее на WinAPi, чем прикручивать сюда оконную продцедуру.. которая к томуже раздует твое приложение на +400 кб минимум с другой стороны: вот как выгдялит создание формы на WinAPi Code: with WinClass do begin Style := CS_PARENTDC; //ñòèëü êëàññà ãëàâíîãî îêíà hIcon := LoadIcon(hInst,'MAINICON'); //èêîíêà ïðîãðàììû lpfnWndProc := @WindowProc; //íàçíà÷åíèå îáðàáîò÷èêà ñîîáùåíèé hInstance := hInst; hbrBackground := COLOR_BTNFACE + 1; //öâåò îêíà lpszClassName := 'Editor Class'; //êëàññ îêíà hCursor := LoadCursor(0, IDC_ARROW); //àêòèâíûé êóðñîð end; Handle := CreateWindowEx(0, 'Editor Class', 'LineAge 2 C4 Dat Editor v1.2.4', WS_OVERLAPPEDWINDOW or WS_VISIBLE, 244, 127, 696, 473, 0, 0, hInst, nil); @WindowProc продцедура обработки сообщений WinClass:TWinClass Code: function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //îáðàáîò÷èê ñîîáùåíèé begin Result := DefWindowProc(hwnd, msg, wparam, lparam); case Msg of WM_LBUTTONDOWN: begin ReleaseCapture; SendMessage(hWin, WM_NCLBUTTONDOWN, HTCAPTION, 0); end; end; вариант №2 (я считаю он через ж.. ибо тащишь все...) Code: program Project1; {$APPTYPE CONSOLE} uses SysUtils, windows, system,classes, forms, messages; type TForm1 = class(TForm) private { Private declarations } public procedure ttt(var M:TMessage); message WM_NCHITTEST; end; procedure TForm1.ttt(var M:TMessage); begin inherited; if M.Result = htClient then M.Result := htCaption; end; begin { TODO -oUser -cConsole Main : Insert code here } end. работает или нет ХЗ но компилится...
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 07 февраля 2009 18:31 · Личное сообщение · #10 Halt ошибка "Resource TForm1 not found" пишет А {$R *.DFM} нельзя вставить, у меня же консоль
Stack Ранг: 107.5 (ветеран) Активность: 0.15↘0 Статус: Участник	Создано: 07 февраля 2009 21:36 · Личное сообщение · #11 Люди если форма создается из экземпляра TForm значит OnMouseDown у нее уже есть. Просто его надо динамически присвоить. ----- Md5 fcbb6c9c9a5029b24d70f2d67c7cca74
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 08 февраля 2009 00:17 · Поправил: F_a_u_s_t · Личное сообщение · #12 Mavlyudov Я прекрасно понял о чем ты писал. Stack пишет : Люди если форма создается из экземпляра TForm значит OnMouseDown у нее уже есть. Просто его надо динамически присвоить. Конечно динамически присваивать надо если форма динамически создается. Ну или сразу создать форму а в ней создать консоль. Mavlyudov Кто тебе сказал что нельзя написать дерективу {$R *.dfm}? Тебя обманули.
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 08 февраля 2009 00:25 · Личное сообщение · #13 Mavlyudov Вот тебе для примера. Code: unit Unit4; interface uses Windows, Messages, Classes, Controls, Forms; type TForm4 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); end; var Form4: TForm4; implementation {$R .dfm} procedure TForm4.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform (WM_SYSCOMMAND,SC_MOVE+2,0); end*; {$APPTYPE CONSOLE} begin write('FormMouseDown'); end.
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 08 февраля 2009 01:22 · Личное сообщение · #14 F_a_u_s_t пишет: Кто тебе сказал что нельзя написать дерективу {$R *.dfm}? Тебя обманули. Нельзя просто потому что компилятор будет искать файл project.dfm. А такого файла нет!!!
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 08 февраля 2009 01:40 · Личное сообщение · #15 Mavlyudov А кто сделать тебе не дает? Или тебе обязательно динамически надо? Еще как вариант все это в либу перенисти и подключить к основной проге - консоли. Если динамически то и конструкторы,методы и процедуры тоже динамически надо обьявлять. Кстати в королевстве делфи была такая тема на форуме там давали несколько примеров для совмещения консоли и формы... если не потерли то там и лежит.
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 08 февраля 2009 02:04 · Личное сообщение · #16 Вот откомпиленный вариан с {$R .dfm} : Halt* 1 вариан тоже работает - проверял 2 не знаю не пробовал. А по нормальному имхо все таки это надо в либу выносить. 99b5_07.02.2009_CRACKLAB.rU.tgz - Project2.rar
drin Ранг: 63.8 (постоянный), 2thx Активность: 0.03↘0 Статус: Участник	Создано: 08 февраля 2009 12:04 · Личное сообщение · #17 Mavlyudov читаем MSDN -> SetWindowLong / GWL_WNDPROC
ne0 Ранг: 4.3 (гость) Активность: 0=0 Статус: Участник	Создано: 08 февраля 2009 23:01 · Личное сообщение · #18 Mavlyudov [quote]ошибка "Resource TForm1 not found" пишет[/quote] Создавай форму через Form1 := TForm1.Create( nil, 1 ); // Ключевой момент - второй параметр Тогда не будет ресурс формы искать.
Halt Ранг: 65.7 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 08 февраля 2009 23:07 · Личное сообщение · #19 drin пишет: читаем MSDN -> SetWindowLong / GWL_WNDPROC ха ха ха.. а ларчик просто ) зачет не знал, я извращением таким не занимался никогда спасибо
Clerk Ранг: 255.8 (наставник), 19thx Активность: 0.15↘0.01 Статус: Участник vx	Создано: 08 февраля 2009 23:19 · Поправил: Clerk · Личное сообщение · #20 Halt Это не извращение, а нормальный системный механизм; извращение это типа "TForm1.ttt(var M:TMessage)". Get~/SetWindowLong() позволяют получить/переопределить оконную процедуру, но только в контексте текущего процесса. Тоесть мы получаем указатель на оригинальный хэндлер, задаём свой. Далее мы обрабатываем как и скозал уже g-l-u-k сообщение WM_LBUTTONDOWN, посылая WM_NCLBUTTONDOWN(HTCAPTION), после чего передаём управление на оригинальный диспетчер.
Halt Ранг: 65.7 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 08 февраля 2009 23:29 · Личное сообщение · #21 да нет это я понял просто я бы тупо сделал на чистом WINAPI мне так проще и нагляднее )) все равно все руками создается... хоят это получилось бы и тоже самое по сути но все же, имхо нагляднее а так согласен полностью...
zombiee Ранг: 17.7 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 09 февраля 2009 00:31 · Личное сообщение · #22 Вот) в примере: 0. Создание окна в консольном приложении (точнее, TForm) 1. Создание кнопки и обработка её нажатия 2. перетаскивание окна за любое (даже не пристойное =) ) место 79e1_08.02.2009_CRACKLAB.rU.tgz - Project1.rar
Mavlyudov Ранг: 156.2 (ветеран), 2thx Активность: 0.09↘0 Статус: Участник	Создано: 09 февраля 2009 10:43 · Поправил: Mavlyudov · Личное сообщение · #23 ne0 пишет: Form1 := TForm1.Create( nil, 1 ); // Ключевой момент - второй параметр Это для какой версии делфи? у меня пишет: Too mane actual parametrs zombiee Работает даже без этой строчки: DragMouse:=TMyEventHandler.Create;
zombiee Ранг: 17.7 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 09 февраля 2009 11:25 · Личное сообщение · #24 to Mavlyudov: Я знаю, это подстраховка от ошибок )
Halt Ранг: 65.7 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 09 февраля 2009 15:49 · Поправил: Halt · Личное сообщение · #25 немного поэкспериментировал над проектом zombiee , получилось вот так, тоже самое но форма создается нормально, через Dfm а потом просто копируется со всеми файлами (pas, res, dfm) в папку к консольному проекту, единственное но - по закрытие консоли вылазит violation но мне думает это из-за кривой работы делфей с памятью, это у нее наследственное.. можно просто отловить... а может как подправить... да и потом открывается в делфях уже с формы...
Halt Ранг: 65.7 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 09 февраля 2009 15:52 · Личное сообщение · #26 97a9_09.02.2009_CRACKLAB.rU.tgz - 111.zip
zombiee Ранг: 17.7 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 09 февраля 2009 21:45 · Поправил: zombiee · Личное сообщение · #27 to Halt: Во-во, я тоже самое получал) попробуй ЯВНО задать form.Close; или form.Free; Извиняюсь, явно вызвать при Application.OnTerminate;
drin Ранг: 63.8 (постоянный), 2thx Активность: 0.03↘0 Статус: Участник	Создано: 10 февраля 2009 01:47 · Личное сообщение · #28 Halt пишет: ха ха ха.. а ларчик просто ) зачет не знал, я извращением таким не занимался никогда спасибо просто лично я не вижу смысла загонять себя в рамки VCL или других классов/объектов когда есть штатные API для таких вещей, например вдруг автор завтра решит что ему VCL не подходит и заюзает KOL или вообще начнет юзать виндовый API для GUI и ему придется все переделывать, а так с SetWindowLong оно в любом исполнении будет работоспособным решением
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 10 февраля 2009 02:02 · Личное сообщение · #29 drin Я вобще не вижу смысла писать консоль и при этом юзать классы. Вчем выгода консоли если юзать классы? Размеры будут ого го лучше сразу GUI делать.
Clerk Ранг: 255.8 (наставник), 19thx Активность: 0.15↘0.01 Статус: Участник vx	Создано: 10 февраля 2009 04:13 · Поправил: Clerk · Личное сообщение · #30 Halt Перечитывал тут, чуть пацтол не упал > оконную продцедуру.. которая к томуже раздует твое приложение на +400 кб минимум У тебя какието баги в конпиляторе, это просто не возможно.. У меня оконная процедура заняла 39 байт с учётом пересчёта дельтасмещания, без него и того меньше: Code: comment ' LONG NtUserSetWindowLong( IN HWND hwnd, IN int nIndex, IN LONG dwNewLong, IN BOOL bAnsi);' RedirectionAndDispatchWindowProc proc WindowHandle:HANDLE push TRUE Call dt01 dt01: add dword ptr [esp],(offset NewEntry - offset dt01) ;WindowProc push GWL_WNDPROC push WindowHandle mov eax,1220h ;NtUserSetWindowLong mov edx,esp int 2eh lea esp,[esp + 44] ;Remove frame. Call* dt02 dt02: pop edx mov dword ptr [edx + (offset OldEntry - offset dt02)],eax ;WindowProc ret ; NewEntry: Call dt03 dt03: cmp dword ptr [esp + 34],WM_LBUTTONDOWN ;uMsg pop* edx jne @f mov dword ptr [esp + 24],WM_NCLBUTTONDOWN ;uMsg -> mov* dword ptr [esp + 34],HTCAPTION ;wParam @@: jmp* dword ptr [edx + (offset OldEntry - offset dt03)] OldEntry: PVOID ? RedirectionAndDispatchWindowProc endp Я взял сервис фиксированной константой(XPSP2), код должен быть в секции доступной для записи, но это я тестил. Реально в вам это не нужно; я исходил из того, что оконная процедура является рекурсией, например SendMessage() сводится к вызову тойже оконной процедуры, посылая только иные коды, чем были приняты до вызова. Проще говоря, чтоб не юзать никакие апи необходимо просто текущие коды изменить, тоесть: Code: uMsg -> WM_NCLBUTTONDOWN wParam -> HTCAPTION Более ничего не нужно делоть.

. 1 . 2 . >>

Для печати