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

Вниз

таскание формы 2   Найти похожие ветки 

 
Ms.Dunkul   (2004-09-15 14:29) [0]

С тасканием формы мнe вы помогли!
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;
но вот беда!:при перемещении формы перемещается рамка и только потом
после отпускания кнопки перем. сама форма.
Я думаю,что можно исп. Timer,но...
То,что написал MetalFan (с) ,я ни ши-ши не поняла (после слова const,искл. begin end).
Итак ,как сделать ,чтобы перемещалась сама форма.


 
Yurko ©   (2004-09-15 14:39) [1]

Делай так:

type
 TfmMain = class(TForm)
 ....................
 private
   { Private declarations }
   procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
....................
implementation

procedure TForm1.WMLButtonDown(var Msg: TMessage);
begin
 SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.022 c
4-1093413745
sohat
2004-08-25 10:02
2004.10.03
хук на сообщения об ошибке, возможно ли такое


8-1089457559
Andrew
2004-07-10 15:05
2004.10.03
Как можно изменять количество витков спирали на канвасе Bitmap?


1-1095244178
Ms.Dunkul
2004-09-15 14:29
2004.10.03
таскание формы 2


3-1094184007
Карелин Артем
2004-09-03 08:00
2004.10.03
В ожидании EVENT. Чем пользоваться?


4-1093435836
Cat
2004-08-25 16:10
2004.10.03
Работа с портом LPT