[Interface]

Понимаю что задача скорее всего простая, но увы не могу решить. Дело в том что моя форма(Form12) по таймеру (Timer1) перемещается в левый угол экрана , но в "procedure TForm12.Timer1Timer " нет не одной строки в которой упоминалось о движении формы!!!

[san-46]

Сообщество потрясено и заинтриговано. Полтергейст, не иначе.
Пож., код "procedure TForm12.Timer1Timer" в студию.

[newbiecoder]

Сообщение от Interface

Понимаю что задача скорее всего простая, но увы не могу решить. Дело в том что моя форма(Form12) по таймеру (Timer1) перемещается в левый угол экрана , но в "procedure TForm12.Timer1Timer " нет не одной строки в которой упоминалось о движении формы!!!

А align не меняешь?

[Interface]

Нашел причину! В этом проэкте я использовал переменные: "Left" и "Top", но забыл написать

Код:

procedure TForm12.Timer1Timer(Sender: TObject);
var
Top, Left: integer;
...

При этом делфи совсем не ругался! Видимо "он подумал" что "Left" и "Top" относятся к форме! Но потом я написал недостоющие строки и все стало Хорошо!

[Interface]

Еще вопросик (на мой взгляд не стоющий отдельной темы). Есть "SpinEdit1" и есть переменная "I". По изменению "SpinEdit1" переменная "I" должна принимать значение " SpinEdit1.Value". То есть такая процедура

Код:

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
I : integer;
begin
I := SpinEdit1.Value;
end;

Но если в время работы проги стереть содержимое "SpinEdit1" (там будет пусто) прога оброботает событие "SpinEdit1Change" и попытается "I" прировнять к пустоте. Что конечно выдаст ошибку Как это исправить? Зарание спасибо!

[Thrasher]

Попробуй применять обработку исключений.

Код:

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
I : integer;
begin
  try
    I := SpinEdit1.Value; // Попытка присвоить значение
  except
    I:=0; // Если возникло исключение, то приравнять I нулю
  end;
end;

[Interface]

А нельзя сделать... так:

Код:

If {если есть число(как это написать???)} then i := spinedit1.Value;

[Interface]

Решил еще одну свою задачу! Людям на будущие:

Код:

procedure TForm1.SpinEditChange(Sender: TObject);
var
i : integer;
begin
If SpinEdit1.Text <> '' then
I := SpinEdit2.Value;
end;