git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
26 lines
393 B
ObjectPascal
26 lines
393 B
ObjectPascal
unit a;
|
|
|
|
function main;
|
|
var
|
|
pDlg: TForm;
|
|
pControl: TControl;
|
|
pPoint: TPoint;
|
|
begin
|
|
pDlg := TForm.Create(nil);
|
|
try
|
|
pControl := TControl.Create(pDlg);
|
|
try
|
|
pControl.Parent := pDlg;
|
|
pPoint.x := 0;
|
|
pPoint.y := 0;
|
|
pControl.ClientToScreen(pPoint);
|
|
finally
|
|
pControl.Free;
|
|
end;
|
|
finally
|
|
pDlg.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|