Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перетаскивание формы за Image [D7, WinXP]

Dmitry_04 © (2005-02-02 17:35:00)
Я тут в интернете нашел несколько способов по перетаскиванию формы за Image:

Способ №1
private procedure WMNCHITTEST(var M:TWMNCHitTest); message WM_NCHITTEST; ... procedure TForm1.WMNCHITTEST(var M: TWMNCHitTest); begin inherited; if M.Result = htClient then M.Result := htCaption; end;

Способ №2
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; perform(WM_SysCommand, SC_DragMove, 0); end;

Способ №3
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if( ssLeft in Shift )then begin ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, 61458, 0); end; end;

Все способы работают... Но я никак не пойму какой из них лучше(менее тормознутый). Тут есть еще небольшая проблема с первым способом, он перехватывает сообщения OnMouseDown..:( И у меня есть на форме кнопки на основе Image, они не нажимаются... Так что остается 2-й и 3-й или 1-й если там как-нибудь чтонибудь изменить :) Что посоветуете?

grom (2005-02-02 20:57:00) [1]
var
f: boolean;
xx,yy: integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
f := true;
xx := x;
yy := y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
f := false;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if not f then exit;
Left := Left + x - xx;
Top := Top + y - yy;
end;

Dmitry_04 (2005-02-02 20:48:00) [2]
Точно... я сейчас попробовал и заметил... Как быть?

remb (2005-02-02 20:14:00) [3]
Все способы имеют проблемы со сдвиганием формы в самый верх эрана.

DVM (2005-02-02 17:39:00) [4]
2) и 3) - это одно и то же.:)
Самый гибкий способ - 1)

Dmitry_04 (2005-02-02 17:37:00) [5]
Мне кстати тоже так кажется что второй лучше :)

Shirson (2005-02-02 17:36:00) [6]
Я способ №2 юзаю.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »