таскание формы 2
Ms.Dunkul © (2004-09-15 14:29:00)
С тасканием формы мн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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
