-2

有没有办法改变TImage存储在变量中的 a 的属性？

我有一个函数在变量中写入Namea 的属性，并将字段名称写入变量中。TImageFigureSelectedNameFieldSelected

现在我的问题是：

FieldSelectedName.top
FieldSelectedName.left

这在 Delphi 中出现错误（非法限定符）

function moveFigure(FigName:String; FieldName:String):boolean;
var
  x:Integer;
  y:Integer;
begin
  if (FigureSelected=true) and (FieldSelected=true) then
   begin
     x := strtoint(FieldSelectedName[2]);
     y := Ord(FieldSelectedName[1])-64;

     FigureSelectedName.top  := 80 + (x * 70);
     FigureSelectedName.left := 80 + (y * 70);
   end;
end;
4

2 回答 2

0

将系统从使用变量中的TImage名称更改为在变量中使用TImage指针就可以了。

FigureSelectedImage: TImage;
FieldSelectedImage:  TImage;

然后使用变量和普通标识符可以正常工作。

FigureSelectedImage.Top := ...
于 2015-12-04T00:17:12.033 回答
-1

System.Classes.TComponent.FindComponent可用于在知道其名称的表单中查找组件。

  • 检查发现的东西是否真的是TImage

  • 使用TImage属性和方法

procedure TForm1.Button1Click(Sender: TObject);
var
  comp: TComponent;
  img: TImage;
begin
  comp := FindComponent('Image1');
  if comp is TImage then begin
    img := TImage(comp);
    img.Left := 0;
    img.Top := 0;
  end;
end;

你的方法应该这样写，这样FindComponent方法才能工作。

function moveFigure(FigName:String; FieldName:String): Boolean;
var
  x:Integer;
  y:Integer;
  comp: TComponent;
  img: TImage;
begin
  //Result := False;
  if FigureSelected and FieldSelected then
  begin
    x := strtoint(FieldSelectedName[2]);
    y := Ord(FieldSelectedName[1])-64;

    comp := Form1.FindComponent(FieldSelectedName);
    if comp is TImage then begin
      img := TImage(comp);
      img.Left := 80 + (y * 70);
      img.Top := 80 + (x * 70);
      //Result := True;
    end;
  end;
end;

但是这个方法有很多问题：

  • 方法的参数FigName:String并且FieldName:String从未在方法体中使用

  • 您确定要在图像名称中查找的坐标永远只有一位数吗？

  • Ord(FieldSelectedName[1]): a 的序数Char看起来像 Y 轴的奇怪值

  • 该方法被声明为返回Boolean，但没有为Result

于 2015-12-03T20:55:55.330 回答