VPF::Перемещение формы за Panel - Форум программистов

xloff

Дата 25.7.2007, 01:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 27.6.2007

Репутация: нет
Всего: нет

Есть форма (borderstyle=bsnone). Хочу реализовать перетаскивание формы за компонент Panel. Как можно реализовать это?

p.s. Прошу прощение, нечайно создал новость с этой темой. Без графики не увидел ссылки создания темы...

Rodman

Дата 25.7.2007, 08:35 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

из DRKB
Таскаем форму за её поверхность

Код


unit DragMain;

interface

uses
SysUtils, WinTypes, WinProcs,  Messages,
Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;

type

TForm1 = class(TForm)
   Button1: TButton;
   procedure ButtonClick(Sender: TObject);
private        
   procedure WMNCHitTest(var M: TWMNCHitTest);
                message wm_NCCHitTest;
end;
var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1. WMNCHitTest(var M: TWMNCHitTest); 
begin
inherited;
if M.Result = htClient then
   M.Result := htCaption;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Akella

Дата 25.7.2007, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

из DRKB

Код


procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
 SC_DragMove = $F012;
begin
  ReleaseCapture;
  Form1.Perform(WM_SysCommand, SC_DragMove, 0);
end;

Добавлено @ 09:34

Код


procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
{©Drkb v.3(2007): www.drkb.ru}
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

Это сообщение отредактировал(а) Akella - 25.7.2007, 09:34

xloff

Дата 25.7.2007, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 27.6.2007

Репутация: нет
Всего: нет

Akella, большое спасибо.

W1zArD

Дата 26.7.2007, 03:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

еще и через SendMessage можно ))))

Код


ReleaseCapture
SendMessage(handle, WM_SYSCOMMAND, $f012, 0);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »