В Hint Image вывести картинку полного размера

[Shouldercannon]

Как в Hint Image вывести картинку полного размера?

[haruhi]

динамически создать TImage, занести к него картинку полного размера и скрыть. при наведении мыши на искомую маленькую картинку, выводить созданный TImage в то место экрана где сейчас находится курсор

[Shouldercannon]

  MyImage := TImage.Create(Self);
  MyImage.Picture.LoadFromFile('big.gif');
  MyImage.Parent := Form1;
  MyImage.Visible := False;

при наведении мыши на искомую маленькую картинку, выводить созданный TImage в то место экрана где сейчас находится курсор

Не соображу как сделать.

[Аватар]

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var xVisible: Boolean;
    xPoint: TPoint;
begin
  xVisible:=Image2.Visible;
  Image2.Visible:=(x>=0) and (x<Image1.Width) and (y>=0) and (y<Image1.Height);
  if Image2.Visible and not xVisible then begin
    xPoint:=Form1.ScreenToClient(Point(Mouse.CursorPos.X,Mouse.CursorPos.Y));
    Image2.Left:=xPoint.X;
    Image2.Top:=xPoint.Y;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Image2.Visible:=(x>=Image1.Left) and (x<Image1.Left+Image1.Width) and (y>=Image1.Top) and (y<Image1.Top+Image1.Height);
end;

Image2 создан в design-time и изначально Image2.Visible:=False;

[Shouldercannon]

Хороший пример. Можно сделать чтобы Hint выходил за границы формы? Или тут уже нужно что-то другое не Image?

[Аватар]

За границы формы - нужно новую форму создавать

[Shouldercannon]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form2.Close;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var xVisible: Boolean;
    xPoint: TPoint;
begin
  Form2.Show;
  xPoint := Form1.ScreenToClient(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));
  Form2.Left := xPoint.X;
  Form2.Top := xPoint.Y;
end;

Form2 с картинкой постоянно ближе к верхнему левому углу.

[Аватар]

Я в примере за точку отчета брал позицию курсора в момент входа на основной Image. Для другой формы координаты нужно задавать не относительно главной формы, а относительно экрана, т.е. преобразование ScreenToClient излишне, координаты мыши и так относительно экрана