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

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

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


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


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


В том примери порграмы о которм я писал выше даный Хинт принимает какието символы который потом в процесе рпограмы применяються для сравнения я просто немогу понять... я краще вот покажу: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??


В том примери порграмы о которм я писал выше даный Хинт принимает какието символы который потом в процесе рпограмы применяються для сравнения я просто немогу понять... я краще вот покажу: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!';
я прав по поводу переменной.