|
Вопрос # 4 331/ вопрос открыт / |
|
Доброго здравия...
В общем у меня в форме в свойстве 'BorderStyle' выдано 'BsNone'... Но мне нужно, чтобы форму можно было перемещать нажатием на неё. В голову пришло только вот это(в приложении), но это оказалось настолько убого, что мне самому плохо стало... Есть у кого нибудь более подходящии идеи? Буду очень благодарен, спс!
Приложение: Переключить в обычный режим- var
- Form1: TForm1;
- a : tpoint;
- b : boolean;
- i2 : integer;
-
- ...
-
- procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
-
- begin
- b := true;
- a.X := mouse.CursorPos.X;
- a.Y := mouse.CursorPos.Y;
- end;
-
- procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
-
- begin
- if b then begin
- if mouse.CursorPos.X - a.X <> 0 then begin
- i2 := mouse.CursorPos.X - a.X;
- if mouse.CursorPos.X - a.X > 0 then form1.Left := form1.Left + i2 else form1.Left :=
form1.Left + i2;
- end else
- if mouse.CursorPos.y - a.y <> 0 then begin
- i2 := mouse.CursorPos.y - a.y;
- if mouse.CursorPos.y - a.y > 0 then form1.Top := form1.Top + i2 else form1.Top :=
form1.Top + i2;
- end;
- a.X := mouse.CursorPos.X;
- a.Y := mouse.CursorPos.Y;
- end;
- end;
-
- procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
-
- begin
- b := false;
- end;
-
- end.
 |
Вопрос задал: padonak (статус: Посетитель)
Вопрос отправлен: 15 июня 2010, 23:39
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 16 июня 2010, 17:08; участников в обсуждении: 5.
|
min@y™ (статус: Доктор наук), 15 июня 2010, 23:50 [#2]:
У меня есть готовая программа, причём не одна. Но, однако, я всё помню. А ты помнишь, кем ты меня назвал? Причём, не по делу.
Пиши сам.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
bugmenot (статус: 3-ий класс), 15 июня 2010, 23:54 [#3]:
ну почему, почему вы все так любите глобальные переменные?
а вообще, с помощью нехитрых геометрических вычислений и проверки левой мыши в shitstate можно таскать пользуясь только OmMouseMove
c хит-тестом просто но там есть грабли
дерзай, а завтра поищу свои эксперименты на тему
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
padonak (статус: Посетитель), 16 июня 2010, 00:06 [#4]:
bugmenot, спс... погоди, но почему ты не сторонник глобальных переменных? они в самом начале, при создании "обнулены" и их можно использовать в разных процедурах - экономия памяти...
|
|
Ерёмин А.А. (статус: *Администратор), 16 июня 2010, 13:07 [#5]:
Моё сообщение осталось незамеченным? Таскание формы мышкой делается в 2 строки.
|
|
Amidamaru (статус: 4-ый класс), 16 июня 2010, 13:28 [#6]:
Кроме указанного Андреем способа, есть и ещё более простой (без работы с сообщениями) и тоже в 2 строки.
ктомуже можно сделать панель или ещё какойнибудь компонент, за который будет таскаться форма.
вобщем в OnMouseDown нужного компонента или формы добавляем:
if Button=mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
|
|
|
padonak (статус: Посетитель), 16 июня 2010, 17:08 [#7]:
спс всем, выручили!!!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
