Компонент - Image?!

[$T@LKER]

У меня задач написать програму Ханойськие башни. У меня есть пример скачаніе исходники уже готовой програми там всьо основано на компоненте Shape. правда там мне не всё понятно - вот для начала хочу спросить - можна ли реализовать даную игру при помощи Image??
Заранее огромнеёшее спасибо!!!

[Kotofff]

можна ли реализовать даную игру при помощи Image??

Да можно.

[$T@LKER]

Подскажите пожалуйста что за параметр - HINT? Э какаято метка?

[856100]

Hint - это всплывающая подсказка (сам текст подсказки), а чтоб она работала нужно ShowHint поставить в true.

[$T@LKER]

В том примери порграмы о которм я писал выше даный Хинт принимает какието символы который потом в процесе рпограмы применяються для сравнения я просто немогу понять... я краще вот покажу:

procedure TForm1.BDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=((Sender AS TShape).Hint[2]='X')AND
((Source AS TShape).Width<(Sender AS TShape).Width);
end;

procedure TForm1.BDragDrop(Sender, Source: TObject; X, Y: Integer);
VAR
Moved,Still:TShape;
begin
s:=s+1;
Label2.Caption:=FloatToStr(s);
Moved:=Source AS TShape;
Still:=Sender AS TShape;
Moved.Top:=Still.Top-Moved.Height+1;
Moved.Left:=Still.Left+(Still.Width DIV 2)
-(Moved.Width DIV 2);
WITH FindComponent (Moved.Hint[1]) AS TShape do
begin
if Name<='E' then DragMode:=dmAutomatic;
Hint:=Hint[1]+'X';
end;
Moved.Hint:=Still.Name+'X';
Still.Hint:=Still.Hint[1]+Moved.Name;
Still.DragMode:=dmManual;
if (L.Hint='XX') and (M.Hint='XX') then
Caption:='Towers of Hanoi - Done!';
end;

Вопрос следующий - зачем и как здесь применяеться Hint??

[856100]

Сообщение от $T@LKER

В том примери порграмы о которм я писал выше даный Хинт принимает какието символы который потом в процесе рпограмы применяються для сравнения я просто немогу понять... я краще вот покажу:

procedure TForm1.BDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=((Sender AS TShape).Hint[2]='X')AND
((Source AS TShape).Width<(Sender AS TShape).Width);
end;

procedure TForm1.BDragDrop(Sender, Source: TObject; X, Y: Integer);
VAR
Moved,Still:TShape;
begin
s:=s+1;
Label2.Caption:=FloatToStr(s);
Moved:=Source AS TShape;
Still:=Sender AS TShape;
Moved.Top:=Still.Top-Moved.Height+1;
Moved.Left:=Still.Left+(Still.Width DIV 2)
-(Moved.Width DIV 2);
WITH FindComponent (Moved.Hint[1]) AS TShape do
begin
if Name<='E' then DragMode:=dmAutomatic;
Hint:=Hint[1]+'X';
end;
Moved.Hint:=Still.Name+'X';
Still.Hint:=Still.Hint[1]+Moved.Name;
Still.DragMode:=dmManual;
if (L.Hint='XX') and (M.Hint='XX') then
Caption:='Towers of Hanoi - Done!';
end;

Вопрос следующий - зачем и как здесь применяеться Hint??

В коде, что вы предоставили загружают значение hint во время работы программы.
Применяют hint в основном для удобства пользователю (например коментарии к кнопке).
p.s.
Возможно, для экономии переменных, hint используют как string-овую переменную (при условии что ShowHint=false), раз идет сравнение ее с чем нибудь, во время работы программы.

Исходя из сл. кода

if (L.Hint='XX') and (M.Hint='XX') then
Caption:='Towers of Hanoi - Done!';

я прав по поводу переменной.