PT := ABmp.Canvas.Pixels[0,0]

`ABmp.Canvas.Pixels[0,0]`是获取位图(ABmp)左上角第一个像素点的颜色值，返回值的数据类型是TColor。而您的PT是TPoint类型，所以会导致类型不兼容的编译错误。

如果您想要获取位图的左上角像素的坐标，可以直接使用`Point(0, 0)`来初始化TPoint类型的变量，如下所示：

PT := Point(0, 0);

如果您想要获取其他像素的颜色值，可以使用像素的x和y坐标来获取颜色值，然后将其赋值给TPoint类型的变量，例如：

PT := Point(x, y);
Color := ABmp.Canvas.Pixels[x, y];

请注意，x和y坐标应该在位图的范围内，并且应该是整数类型。

相关问题

delphi7在指定窗口中找到指定图片并单击

您可以使用Delphi的Windows API函数来实现在指定窗口中查找指定图像并单击的操作。以下是一个简单的示例：

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FTargetWnd: HWND;
    FTargetBmp: TBitmap;
    function FindBitmapInWindow(const AWnd: HWND; const ABmp: TBitmap): TPoint;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.FindBitmapInWindow(const AWnd: HWND; const ABmp: TBitmap): TPoint;
var
  DC: HDC;
  RC: TRect;
  BM: TBitmap;
  PT: TPoint;
begin
  Result := Point(-1, -1);
  DC := GetDC(AWnd);
  try
    GetClientRect(AWnd, RC);
    BM := TBitmap.Create;
    try
      BM.Width := RC.Right - RC.Left;
      BM.Height := RC.Bottom - RC.Top;
      BitBlt(BM.Canvas.Handle, 0, 0, BM.Width, BM.Height, DC, 0, 0, SRCCOPY);
      PT := ABmp.Canvas.Pixels[0, 0];
      Result := FindBitmap(BM, ABmp, PT);
      if Result.X >= 0 then
      begin
        Result.X := Result.X + RC.Left;
        Result.Y := Result.Y + RC.Top;
      end;
    finally
      BM.Free;
    end;
  finally
    ReleaseDC(AWnd, DC);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  PT: TPoint;
begin
  PT := FindBitmapInWindow(FTargetWnd, FTargetBmp);
  if PT.X >= 0 then
  begin
    Timer1.Enabled := False;
    SendMessage(FTargetWnd, WM_LBUTTONDOWN, 0, MakeLParam(PT.X, PT.Y));
    SendMessage(FTargetWnd, WM_LBUTTONUP, 0, MakeLParam(PT.X, PT.Y));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTargetWnd := FindWindow(nil, 'Target Window Title');
  FTargetBmp := TBitmap.Create;
  FTargetBmp.LoadFromFile('C:\TargetImage.bmp');
  Timer1.Enabled := True;
end;

在上面的代码中，`FindBitmapInWindow`函数用于在指定窗口中查找指定图像，并返回图像的位置。`Timer1Timer`事件处理程序使用`FindBitmapInWindow`函数来查找目标图像，并在找到图像后向目标窗口发送鼠标单击消息。`FormCreate`事件处理程序初始化目标窗口句柄和目标图像。请注意，您需要将`FindWindow`函数的第二个参数替换为您要查找的窗口的标题。您还需要替换`FTargetBmp.LoadFromFile`函数的参数为您要查找的图像的文件路径。