Quote:
Originally Posted by PrinceGupta2000
he is asking for form's mouse drag functionality. This is what happens when you copy the code, doesn't know what is really the purpose behind, conjectures is all you got and foul perceptions
|
That's the thing I have said him. I made the reply from my phone so, that's why I have not wrote the full code. I know all the purpose of the code.
The procedure "onmousedown" is a fixed property of a label in a custom form in which one have to add the mouse drag procedure. like this,
OnMouseDown:=@INFOMouseDown;
And the "INFOMouseDown" procedure is the mouse drag procedure which can be like this,
procedure INFOMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(InfoForm.Handle,$0112,$F012,0);
end;
And one thing, you have cracked my mod, so You can see there is more things than coping a code. No one can make such type of mod by just only coping the codes.