我如何在 Delphi 运行时将不同的标签分配给各种对象

Question

如何在运行时将不同的标签分配给相同类型的各种对象（例如：TCircle）？ 让我解释一下：我想在运行时创建各种圈子，并为每个圈子分配一个不同的标签，然后使用点击事件显示我点击的圈子。 这是我的代码片段：

procedure 
TPhotoX.FormCreate(Sender: 
TObject);
var
 FilesN: String;
 S: TBitmap;
 Cir: TCircle;
begin
  FlowLayout1.DeleteChildren;
  GetFP:= TDirectory.GetFiles(GetPathIma, '*jpg', TSearchOption.soTopDirectoryOnly);

for FilesN in GetFP do
VertScrollBox1.BeginUpdate;
Cir.TCircle.Create(Self);
Cir.Parent:= FlowLayOut1;  
Cir.Fill.Bitmap.WrapMode:=TWrapMode.TileOriginal;
Cir.Fill.Kind:= TBrushkind.Bitmap;
Cir.Height:= 85;
Cir.Width:= 85;

//...more circle's properties next including the Circle's Tag property that i ignore to implement
// Sorry i'm Delphi's Beginner but Delphi's power believer too!!! :-)

Cir.OnClick: CirClick;
try
S.TBitmap.Create;
FlowLayout1.AddObject(Cir);
S.LoadThumbnailsFromFile(FilesN, 150, 150);
Cir.Fill.Bitmap.Bitmap:=S;
Cir.Repaint;
VertScrollBox1.EndUpdate;
finally
S.Free;
end;
end;

//in the code above, how i can to assign differents tags for each circle for referencing later with this handler:

procedure TPhotoX.CirClick(Sender:TObject);
begin
 case TCircle(Sender).Tag of
 1: //event to show the image 
 inside the circle
 2: // event to show another 
image inside the circle
 end;
end;
end; 

感谢任何形式的帮助...谢谢您

Answer 1

正如 cmets 中所指出的，您的代码中有几个错误。您没有正确创建 TBitmap 和 TCircle 对象。您没有充分保护资源。而且您的 for 循环缺少必要的 begin/end 块来包含您的循环逻辑。

而且，为了回答您的问题，由于您使用的是 for..in 循环，如果您想分配基于索引的 Tag 值，那么您需要在迭代时使用单独的变量来跟踪当前索引通过集合。

试试这样的：

procedure TPhotoX.FormCreate(Sender: TObject);
var
  FilesN: String;
  S: TBitmap;
  Cir: TCircle;
  I: Integer;
begin
  FlowLayout1.DeleteChildren;
  GetFP := TDirectory.GetFiles(GetPathIma, '*jpg', TSearchOption.soTopDirectoryOnly);
  if GetFP <> nil then Exit;

  VertScrollBox1.BeginUpdate;
  try
    I := 1;
    for FilesN in GetFP do
    begin
      Cir := TCircle.Create(Self);
      try
        Cir.Parent := FlowLayOut1;  
        Cir.Fill.Bitmap.WrapMode := TWrapMode.TileOriginal;
        Cir.Fill.Kind := TBrushkind.Bitmap;
        Cir.Height := 85;
        Cir.Width := 85;
        Cir.Tag := I; // <-- or whatever you need
        Inc(I);
        Cir.OnClick := CirClick;

        S := TBitmap.Create;
        try
          S.LoadThumbnailsFromFile(FilesN, 150, 150);
          Cir.Fill.Bitmap.Bitmap := S;
        finally
          S.Free;
        end;

        FlowLayout1.AddObject(Cir);
      except
        Cir.Free;
        raise;
      end;

      //Cir.Repaint;
    end;
  finally
    VertScrollBox1.EndUpdate;
  end;
end;

procedure TPhotoX.CirClick(Sender: TObject);
begin
  case TCircle(Sender).Tag of
    1: // event to show the image inside the circle
    2: // event to show another image inside the circle
  end;
end;