📄 sample - -1.pas
字号:
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -