image - 将图像大小调整为选择矩形 Delphi

Question

嗨，我不明白为什么这不起作用。 我有一个图像和一个选区，我希望图像始终与选区具有相同的大小和位置，因此我将此代码放入计时器中:

  procedure TfrmMainUI.tmrUpdateTimer(Sender: TObject);
  var i : integer; 
  begin
    Image1.Width:=Selection1.Width;
    Image1.Height:=Selection1.Height;
    Image1.Position.X:=Selection1.Position.X;
    Image1.Position.Y:=Selection1.Position.Y;
  end;

但是这不起作用。

应该发生的情况是图像调整大小以适应选择，并且其位置也遵循选择。 但发生的情况是，我可以移动所选内容并调整其大小，而图像只是保持在原来的位置并且不会调整大小。

Answer 1

正如 @Mike Sutton 在评论中指出的那样，您应该使用 TSelection 的 OnTrack 事件来触发图像更新。

documentation说:

The event handler of the OnTrack event is called cyclically from the MouseMove method while the TSelection object is in the process of moving or resizing.

Write a custom OnTrack event handler to perform a specific action when TSelection is in the process of moving or resizing.

您在评论中指出，组件是在运行时动态创建的，而不是在设计时表面上创建的。因此，您还需要在代码中分配处理程序。这样做:

Selection1.OnTrack := SelectionTrack;

您的事件处理程序将如下所示:

procedure TfrmMainUI.SelectionTrack(Sender: TObject);
begin
  Image1.Width:=Selection1.Width;
  Image1.Height:=Selection1.Height;
  Image1.Position.X:=Selection1.Position.X;
  Image1.Position.Y:=Selection1.Position.Y;
end;

您还在评论中表示，您需要跟踪许多链接图像和选择的选择更改。您可以像这样修改事件处理程序:

procedure TfrmMainUI.SelectionTrack(Sender: TObject);
var
  Selection: TSelection;
  Image: TImage;
begin
  Selection := Sender as TSelection;
  Image := ImageFromSelection(Selection);//you need to implement this function
  Image.Width:=Selection.Width;
  Image.Height:=Selection.Height;
  Image.Position.X:=Selection.Position.X;
  Image.Position.Y:=Selection.Position.Y;
end;