需要引用单元:Vcl.Formsfunction GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;示例GetParentForm(Edit1);
var MonInfo: TMonitorInfo;begin MonInfo.cbSize := SizeOf(MonInfo); GetMonitorInfo(MonitorFromWindow(Handle, MONITOR_D...
Xe10.2测试可用。function SetScreen(x, y: Word): Boolean;var DevMode: TDeviceMode;begin Result := EnumDisplaySettings(nil,...