TImage,стиль при наведении курсора

[DimOn4Ik]

возможно сделать стиль при наведении курсора на рисунок? например обводка)?

[raxp]

токо руцями... под низ timage можете что-нибудь подложить, например другой timage с рамкой... или прорисовать самому... или подгружать картинку с рамкой из ресурсов

[Gerzs]

Можно бросить TImage на TPanel и менять обводки TPanel. Так их достаточно много.

[mihali4]

Самое простое (для обводки) - использовать TShape:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Shape1.Visible:=True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Shape1.Visible:=False;
end;

Одно условие - TShape должен быть под картинкой...