I want to read a pixel in a WEBPaintBox.
For this I have created the following procedure:
procedure TForm14.wpbPreviewMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
ix,iy: integer;
begin
// if button=mbRight then
begin
pt:=TPoint.Create(x,y);
ix:=wpbPreview.ScreenToClient(pt).x;
iy:=wpbPreview.ScreenToClient(pt).y;
webPanel1.Caption:=Format('%i %i',[ix,iy]);
end;
end;
When compiling the program, I get the error message:
[Fehler] Unit14.pas(74): identifier not found "Create":
pt:=TPoint.Create(x,y);