Просто прямоугольником? Можно и так.
Насчет
Цитата:
теперь думаю как сделать всплывающий хинт с рисунком и текстом вместо "lll1"
|
сделай так:
Код:
//событие KartaIMGClick:
Begin
...//проверка на попадание точки на остров, загрузка соответствующей картинки в Image2
Image2.Top:=y;
Image2.Left:=x;
Image2.Visible:=true;
end;
//Событие MouseMove:
begin
Image2.Visible:=false;
end;
так у тебя при нажатии на остров будет показываться картинка, а при движении мыши она исчезнет. Если хочешь полный функционал хинта - то лучше по событию движения делать
Код:
begin
Image2.Visible:=false;
TMHint:=0; // глобальная переменная Integer
end;
и поставить таймер с событием:
Код:
begin
if TMHint>=5 then
begin
...//ставим картинку в координаты курсора
Image2.Visible:=true;
end
else inc(TMHint);
end;