当我不能访问promise实例的引用时,如何测试异步函数是否在特定条件下抛出错误?
const fakeRequest = Promise.reject();
function Component() {
const click = async () => {
await fakeRequest()
.then(doStuff)
.catch(error => {
if (error.foo === true) {
throw new Error('Error') // how do I te
我需要在设计时获得表单上所有组件的列表(不是控件,只是组件)。
组件还必须在设计时以24x24图像的形式在窗体上可见。
我可以使用这样的代码
procedure TForm2.GetComponentList(Memo1: TMemo)
var
i: Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TComponent) and not (Components[i] is TControl) then
Memo1.Lines.Add(Components[i].Name);
end;
谁在设计时绘制TTimer?
在使用Delphi IDE的窗体设计器时,当您将一个TTimer放到窗体上时,该组件在设计时是可见的(当然,在运行时是不可见的)。
TTimer类是在单元ExtCtrls中定义的,所以我当然阅读了该单元中的TTimer源代码。
我本以为会看到这样的情况:
procedure TTimer.Paint;
begin
if csDesigning in ComponentState then
with Canvas do
begin
// Paint the design-time appearance of TTimer here: