Вниз
Скачать: CL | DM;

дочернее окно   Найти похожие ветки 

 
npr2   (2006-02-21 08:55) [0]

Можно ли как-то запретить пользователю передвигать дочернее окно,


 
BiN ©   (2006-02-21 10:27) [1]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMMoving(var Msg: TWMMoving);
begin
 Msg.DragRect.Left:=Left;
 Msg.DragRect.Top:=Top;
 Msg.DragRect.Right:=Left+Width;
 Msg.DragRect.Bottom:=Top+Height;
end;

end.


 
tesseract ©   (2006-02-21 10:47) [2]

Если vcl то BorderStyle=bsNone


 
npr2   (2006-02-22 07:16) [3]

Большое спасибо за ответ



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c
2-1146044154
valdemot
2006-04-26 13:35
2006.05.14
Скрипты в программе


15-1145509773
Ega23
2006-04-20 09:09
2006.05.14
С Днём рождения! 20 апреля


1-1144130382
denmin
2006-04-04 09:59
2006.05.14
Печать данных в одну строку.


15-1145438911
foll
2006-04-19 13:28
2006.05.14
плагиат


15-1145038495
tesseract
2006-04-14 22:14
2006.05.14
ReactOS News - ReactOS is dead, Welcome to ReactOS !:




   Наверх