решил сделать так:
Цитата:
procedure TPirat.KartaIMGClick(Sender: TObject);
var
X, Y: integer;
begin
X := EX;
Y := WY ;
if (X > 407) AND (X < 417) AND (Y > 150) AND (Y < 157) then
begin
lll1.Caption := 'Tortuga';
end
end;
|
теперь думаю как сделать всплывающий хинт с рисунком и текстом вместо "lll1"
Кто подскажет?