IsChild API与Delphi里的Parent不是一回事（Windows窗口自己不能是自己的子窗口，但Delphi不一定）

procedure TForm1.Button1Click(Sender: TObject);
begin
    if IsChild(handle, handle) then ShowMessage(‘yes‘) else ShowMessage(‘no‘); // 显示No, 因为Form自己不是自己的Child

    if IsChild(handle, button1.handle) then ShowMessage(‘yes‘) // 显示Yes
    else ShowMessage(‘no‘);

    if IsChild(handle, panel1.handle) then ShowMessage(‘yes‘) // 显示Yes
    else ShowMessage(‘no‘);

    if IsChild(handle, button2.handle) then ShowMessage(‘yes‘) // 显示Yes，要研究一下，为什么
    else ShowMessage(‘no‘);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ShowMessage(button2.Parent.Name); // 显示Panel1
end;