кроссворд Delphi

[tatiana74]

при правильных ответах текстовые поля должны закрашиваться зеленым цветом, при неправильных записанное в Edit должно исчезать.

все работает - но не так
при всех правильных ответах поля закрашиваются только во вертикали- а по горизонтали все равно исчезают???? Сама ошибку никак ..........
(там есть мелкие погрешности-не успела заглавными буквами набрать-но ведь это не влияет)

[KoliyR]

Ты не правильно сохранила, unit-a то в архиве нет,
кода программы не видно,
кинь если не трудно
он у тебя на
C:\Documents and Settings\User\Рабочий стол\мамины файлы\НА КОНКУРС\Новая папка (2)\2\Unit3.pas

[tatiana74]

Я его все-таки доработала - получилось
и как заметили -не так сохранила
exe работает правильно
затов Delphi вообще открыть не могу - а нужно еще чуть поправить
Возникла новая проблема- как открыть? мне ж этот кросворд к общему проекту присоединить нужно будет! что делать? Помогите!Спасите!

незнай как сохраняла(сохранить проект как) но файл pas оказался в корзине, а все остальное в моей папке

вот как такое могло быть?

можно ли exe в делфи открыть?

вот что вышло

[grom333]

всмысле к общему проекту? если это form2, то на form1 на button поставь код:

form2.show;

Еслине понял тебя и написал глупость прошу не реагировать.

[Stilet]

можно ли exe в делфи открыть?

Нет нельзя. Создать можно, открыть - ни-ни.

[KoliyR]

Я посмотрел програмку, не обижайся

но на мой взгляд - это "убожище" просто
давай попробую может немного помочь, ты не хочешь отказаться от эдитов?
можно использовать функции, как тебе?

вот твой архив: у меня теперь открывает

[KoliyR]

Итак, самое простое - это убрать лишние события которые постоянно повторяются - перевод коретки курсора

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:
и т.д.
рассматривать по словам...