Немогу задать координаты положения формы Delphi - Помощь студентам

Человек Панда · 07.08.2011, 13:26

Здравствуйте.Пытаюсь программно задать положение формы на экране,но почему-то возникает ошибка при изменении top.

Код:


var
  Xkor:integer=645;
  Ykor:integer=490;
 Kvadratyravn:  TKvadratyravn;

procedure TMain.btnKvadrClick(Sender: TObject);
begin
visibleofforms;  //если открыта другая форма,то закрываем её
 if (key[1]<>True)  then
   begin
   Kvadratyravn:=TKvadratyravn.Create(self);

   Kvadrayravn.top:=ykor;
   Kvadratyravn.left:=xkor;
  // Kvadratyravn.Visible:=true;

   kvadratyravn.Show;
   key[1]:=True;
   end;
 if Kvadratyravn.Visible=false then
      begin
      kvadratyravn.left:=xkor;
      kvadrayravn.top:=ykor;
      Kvadratyravn.Visible:=true;
      end;
Kvadratyravn.SetFocus;
Kvadratyravn.DoubleBuffered:=True;
end;

Чем может быть вызвана ошибка в строке Kvadrayravn.top:=ykor;

veniside · 07.08.2011, 13:55

Код:

Kvadratyravn:=TKvadratyravn.Create(self);

может не Self, а Application или nil?

Код:

if (key[1]<>True)  then
if Kvadratyravn.Visible=false then

человечнее:

Код:

if (not key[1])  then
if not Kvadratyravn.Visible then

С объектом Kvadratyravn тоже могут быть проблемы. Если key[1] = True и Kvadratyravn не был создан ранее, весь этот блок будет рабоать с неинициализированным объектом:

Код:

 if Kvadratyravn.Visible=false then
      begin
      kvadratyravn.left:=xkor;
      kvadrayravn.top:=ykor;
      Kvadratyravn.Visible:=true;
end;

> ошибка в строке Kvadrayravn.top:=ykor;

у вас как минимум две таких строки (если не учитывать регистр

), в какой именно ошибка, и какая ошибка?

Человек Панда · 07.08.2011, 14:23

вот тут

Код:

if (key[1]<>True)  then
   begin
   Kvadratyravn:=TKvadratyravn.Create(self);

   Kvadrayravn.top:=ykor;
   Kvadratyravn.left:=xkor

смешно то,что у меня еще 5 похожих форм,там я изменяю и все нормально.

Человек Панда · 07.08.2011, 14:27

вот сфоткал ошибку.

Человек Панда · 07.08.2011, 15:27

Я понял в чем ошибка:
kvadratyravn.left:=xkor;
kvadrayravn.top:=ykor;

Если !внимательно! посмотреть,то количество букв во втором слове на 1 меньше , а компилятор молчал все это время! kvadratyravn
Все,тему можно закрывать.Всем спасибо.

07.08.2011, 13:55	#2
veniside Старожил Регистрация: 03.01.2011 Сообщений: 2,508	Код: `Kvadratyravn:=TKvadratyravn.Create(self);` может не Self, а Application или nil? Код: `if (key[1]<>True) then if Kvadratyravn.Visible=false then` человечнее: Код: `if (not key[1]) then if not Kvadratyravn.Visible then` С объектом Kvadratyravn тоже могут быть проблемы. Если key[1] = True и Kvadratyravn не был создан ранее, весь этот блок будет рабоать с неинициализированным объектом: Код: `if Kvadratyravn.Visible=false then begin kvadratyravn.left:=xkor; kvadrayravn.top:=ykor; Kvadratyravn.Visible:=true; end;` > ошибка в строке Kvadrayravn.top:=ykor; у вас как минимум две таких строки (если не учитывать регистр ), в какой именно ошибка, и какая ошибка? "Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего." Последний раз редактировалось veniside; 07.08.2011 в 14:02.

07.08.2011, 14:23	#3
Человек Панда Пользователь Регистрация: 04.02.2011 Сообщений: 75	вот тут Код: `if (key[1]<>True) then begin Kvadratyravn:=TKvadratyravn.Create(self); Kvadrayravn.top:=ykor; Kvadratyravn.left:=xkor` смешно то,что у меня еще 5 похожих форм,там я изменяю и все нормально.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как задать абсолютные координаты Shape-у на N-той странице?	Diego__	Microsoft Office Word	4	06.07.2012 23:38
Координаты в заголовке формы????	sasha3050	Помощь студентам	8	21.09.2009 16:57
Немогу задать условие..	extrimportal	Общие вопросы Delphi	8	05.05.2009 18:54
Auto LISP. Как программно задать координаты для команд типа SELECT	Stilet	Софт	0	10.07.2008 15:28
Координаты мышки НЕ относительно формы	Nowichok	Общие вопросы Delphi	2	27.02.2007 17:03

07.08.2011, 15:27	#5
Человек Панда Пользователь Регистрация: 04.02.2011 Сообщений: 75	Я понял в чем ошибка: kvadratyravn.left:=xkor; kvadrayravn.top:=ykor; Если !внимательно! посмотреть,то количество букв во втором слове на 1 меньше , а компилятор молчал все это время! kvadratyravn Все,тему можно закрывать.Всем спасибо.