Форум: "WinAPI";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизПеремещение формы Найти похожие ветки
← →
Damager (2006-05-18 21:59) [0]Как ограничить перемещение формы по экрану.
К примеру чтобы left > 100.
← →
sicilla © (2006-05-18 22:41) [1]сделай обработку на форме mousemove с проверкой условия на место, например
if form1.left < 100 then form1.left = 100
← →
parovoZZ © (2006-05-18 22:57) [2]На апях MoveWindow
← →
GrayFace © (2006-05-19 10:30) [3]WM_MOVING
← →
Игорь Шевченко © (2006-05-19 10:45) [4]
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
procedure WMWindowPosChanging (var Message: TMessage);
message WM_WINDOWPOSCHANGING;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WMWindowPosChanging(var Message: TMessage);
begin
with PWindowPos(Message.lParam)^ do begin
if x < 100 then
x := 100;
end;
end;
end.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c