Hi idb68,
try this:
1.Put on on Form a TUniPanel
2.In form's ClientEvents->ExtEvents->OnMouseMove write this code
function window.Onmouseup(sender, x, y)
{
ajaxRequest(sender, 'MyEvent', [ 'param0='+x, 'param1='+y ]);
}
3.On form OnAjaxEvent implement something like this
procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string; Params: TStrings);
var
X,Y: Integer;
begin
if EventName='MyEvent' then
begin
TryStrToInt(Params.Values['param0'], X);
TryStrToInt(Params.Values['param1'], Y);
UniPanel1.Left:= X-(UniPanel1.Width div 2);
UniPanel1.Top:= Y-(UniPanel1.Height div 2);
end;
end;
Please do not criticize me for this code as it is rather experimental.
dima