Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

BorderStyle bsNone не перидвигается   Найти похожие ветки 

 
Ivolg   (2003-11-04 08:22) [0]

Здраствуйте!Помгите мне пожалуйста!Я в BorderStyle тавлю bsNone на форме,а при компиляции форма не перемещается!Как зделать когда нажимаешь на свою форму и ее можно передвигать,при свойствах:BorderStyle bsNone


 
AbrosimovA   (2003-11-04 08:36) [1]

var DragPoint: TPoint;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button<>mbLeft then exit;
DragPoint:=Point(X,Y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (Shift = [ssLeft]) then begin
Form1.Left:=Form1.Left+x-DragPoint.X;
Form1.Top:=Form1.Top+y-DragPoint.y;
end;
end;


 
ZEE ©   (2003-11-04 10:16) [2]

procedure TForm1.Form1MainMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DragMove=$F012;
begin
if Button=mbLeft then
begin
ReleaseCapture;
perform(WM_SysCommand,SC_DragMove,0);
end;
end;


 
ZEE ©   (2003-11-04 10:18) [3]

еще вариант:
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;



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
1-41258
RoLeX
2003-10-31 17:29
2003.11.13
Как в DateTimePicker сравнить даты???


4-42237
LOX
2003-09-13 13:24
2003.11.13
список запущенных приложений


1-41714
Duran
2003-11-03 18:00
2003.11.13
Колесо прокрутки


14-41886
IGray
2003-10-22 02:52
2003.11.13
Идеальный BACKUP хочу


1-41430
Ormada
2003-10-29 14:55
2003.11.13
По handle получить размер формы