|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2010, 14:21 | #1 |
Пользователь
Регистрация: 12.01.2009
Сообщений: 22
|
кроссворд Delphi
при правильных ответах текстовые поля должны закрашиваться зеленым цветом, при неправильных записанное в Edit должно исчезать.
все работает - но не так при всех правильных ответах поля закрашиваются только во вертикали- а по горизонтали все равно исчезают???? Сама ошибку никак .......... (там есть мелкие погрешности-не успела заглавными буквами набрать-но ведь это не влияет) |
01.03.2010, 10:22 | #2 |
Пользователь
Регистрация: 01.09.2009
Сообщений: 55
|
Ты не правильно сохранила, unit-a то в архиве нет,
кода программы не видно, кинь если не трудно он у тебя на C:\Documents and Settings\User\Рабочий стол\мамины файлы\НА КОНКУРС\Новая папка (2)\2\Unit3.pas
Обучение, задания по Делфи http://KoliyR.tk
|
01.03.2010, 20:32 | #3 |
Пользователь
Регистрация: 12.01.2009
Сообщений: 22
|
Я его все-таки доработала - получилось
и как заметили -не так сохранила exe работает правильно затов Delphi вообще открыть не могу - а нужно еще чуть поправить Возникла новая проблема- как открыть? мне ж этот кросворд к общему проекту присоединить нужно будет! что делать? Помогите!Спасите! незнай как сохраняла(сохранить проект как) но файл pas оказался в корзине, а все остальное в моей папке вот как такое могло быть? можно ли exe в делфи открыть? вот что вышло Последний раз редактировалось Stilet; 02.03.2010 в 07:46. |
02.03.2010, 06:01 | #4 |
Форумчанин
Регистрация: 21.10.2008
Сообщений: 337
|
всмысле к общему проекту? если это form2, то на form1 на button поставь код:
Код:
|
02.03.2010, 07:47 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
02.03.2010, 08:06 | #6 |
Пользователь
Регистрация: 01.09.2009
Сообщений: 55
|
Я посмотрел програмку, не обижайся
но на мой взгляд - это "убожище" просто давай попробую может немного помочь, ты не хочешь отказаться от эдитов? можно использовать функции, как тебе? вот твой архив: у меня теперь открывает
Обучение, задания по Делфи http://KoliyR.tk
|
02.03.2010, 15:44 | #7 |
Пользователь
Регистрация: 01.09.2009
Сообщений: 55
|
Итак, самое простое - это убрать лишние события которые постоянно повторяются - перевод коретки курсора
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char); var i:integer; begin for i:= 20 to 102 do if Sender=controls[i] then if i=102 then (form3.Controls[20] as TEdit).SetFocus else (form3.Controls[i+1] as TEdit).SetFocus; end; тут осталось всем компонентам присвоить событие Edit1KeyPress теперь ужас при нажатии первой кнопки, на вскид я предлагаю for i:= 20 to 102 do if Sender=controls[i] then case i of 20..23: 24..28: и т.д. рассматривать по словам...
Обучение, задания по Делфи http://KoliyR.tk
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа которая делает кроссворд | Иллидан | Софт | 15 | 02.12.2014 06:34 |
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 | 666dart666 | Помощь студентам | 11 | 04.11.2010 17:57 |
Небольшой кроссворд на crt | Extreme | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 04.03.2009 18:56 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |