![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 28.03.2009
Сообщений: 393
|
![]()
У меня задач написать програму Ханойськие башни. У меня есть пример скачаніе исходники уже готовой програми там всьо основано на компоненте Shape. правда там мне не всё понятно - вот для начала хочу спросить - можна ли реализовать даную игру при помощи Image??
Заранее огромнеёшее спасибо!!! ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""
|
![]() |
![]() |
![]() |
#2 | |
Участник клуба
Регистрация: 11.01.2009
Сообщений: 1,917
|
![]() Цитата:
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
|
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 28.03.2009
Сообщений: 393
|
![]()
Подскажите пожалуйста что за параметр - HINT? Э какаято метка?
""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 12.08.2008
Сообщений: 135
|
![]()
Hint - это всплывающая подсказка (сам текст подсказки), а чтоб она работала нужно ShowHint поставить в true.
Будь проще, бери пример с одноклеточных
![]() |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 28.03.2009
Сообщений: 393
|
![]()
В том примери порграмы о которм я писал выше даный Хинт принимает какието символы который потом в процесе рпограмы применяються для сравнения я просто немогу понять... я краще вот покажу:
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?? ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""
Последний раз редактировалось $T@LKER; 09.05.2009 в 14:45. |
![]() |
![]() |
![]() |
#6 | |
Форумчанин
Регистрация: 12.08.2008
Сообщений: 135
|
![]() Цитата:
Применяют hint в основном для удобства пользователю (например коментарии к кнопке). p.s. Возможно, для экономии переменных, hint используют как string-овую переменную (при условии что ShowHint=false), раз идет сравнение ее с чем нибудь, во время работы программы. Исходя из сл. кода Код:
Будь проще, бери пример с одноклеточных
![]() Последний раз редактировалось 856100; 10.05.2009 в 00:16. Причина: внимательно просмотрел код |
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Компонент Image | Небесный | Мультимедиа в Delphi | 8 | 02.02.2009 19:59 |
Image | IVANSour | Общие вопросы Delphi | 10 | 19.01.2009 18:11 |
как сделать форму невидимой,а компонент image нет!? | hacknet | Общие вопросы Delphi | 4 | 15.11.2008 10:01 |
как можно врощать компонент image вокруг себя? | steck | Мультимедиа в Delphi | 1 | 31.08.2007 12:04 |
image | Elm0 | Свободное общение | 4 | 21.06.2007 17:34 |