问题[delphi-7]

我正在尝试DrawCurve从 GDIPOBJ.pas 文件中调用一个函数。代码片段：

uses
  ..., GDIPAPI, GDIPOBJ;
...
const Points: array [0..3] of TGPPointF = (
    (X:  30.67; Y: 0),
    (X:  70.68; Y:  30),
    (X: 100.5; Y:  70),
    (X: 290.8; Y:  110));
var
  Pen: TGPPen;
  IGPG:  TGPGraphics;
begin
  IGPG := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create(clBlue,2);

  IGPG.DrawCurve(Pen, Points, 4);  //  !!!!! [Error] There is no overloaded version of 'DrawCurve' that can be called with these arguments !!!!!
end;

我们看一下GDIPOBJ.pas文件中对DrawCurve的描述：

function TGPGraphics.DrawCurve(pen: TGPPen; points: PGPPointF; count: Integer): TStatus;
  begin
    result := SetStatus(GdipDrawCurve(nativeGraphics,
                           pen.nativePen, points,
                           count));
  end;

在上面的函数中，我设置了 TGPPen (Pen), PGPPointF (Points), Integer (4)。怎么了？

我也试过直接通过API函数执行：

GdipDrawCurve(IGPG, Pen, Points, 4);

它对第三个参数发誓：

不兼容的类型：“Array”和“PGPPointF”

但是 Points 数组实际上由 PGPPointF 组成......

我有一个表格，上面有GroupBox。Y GroupBox Width = 0，当您单击按钮时， GroupBox 的大小会发生变化。如何双击button Width GroupBox = 0。我看了看Events按钮，没有OnDblClick。

通过单击 dbgrid 中所有行的按钮选择是否可以使用 ctrl + 组合键选择所有行？

function GridSelectAll(Grid: TDBGrid): Longint;
begin
  Result := 0;
  Grid.SelectedRows.Clear;
  with Grid.Datasource.DataSet do
  begin
    First;
    DisableControls;
    try
      while not EOF do
      begin
        Grid.SelectedRows.CurrentRowSelected := True;
        inc(Result);
        Next;
      end;
    finally
      EnableControls;
    end;
  end;
end;

procedure TForm2.btn13Click(Sender: TObject);
begin
  GridSelectAll(dbgrd1);
end;

我有这样的情况 - 按下按钮它会打开 excel 并且比例自动为 100%，但我希望它有所不同。
我在这里找到了代码，但我无法应用它。请帮帮我。

ExcelApp.PageSetup.Zoom := False;
ExcelApp.PageSetup.FitToPagesWide :=  1;
ExcelApp.PageSetup.FitToPagesTall :=  1;
ExcelApp.PageSetup.Zoom :=  70;

如何在 Delphi 7 中通过套接字传输文件，我在整个互联网上都看过，我还没有找到具体的主题，在我看来，每个站点都在互相窃取关于这个的想法:)

最好有源。

我试图通过 TMemoryStream 传输，因为我不知道如何在那里接收“Stream”...