Перемещение формы???

[Shouldercannon]

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

x:=form1.left;
y:=form1.top;

Я так с самого начала пробовал. Не работает.

[JamS007]

Shouldercannon

как вариант: на форму кидаем таймер, ставим интервал где-то 25 (смотря как часто надо обновлять данные), в его обработчике пишем

x:=form1.left;
y:=form1.top;

если с этими данными надо работать в программе, то переменные желательно сделать глобальными, а если просто выводить, то это можно сделать в той же процедуре таймера.

[Shouldercannon]

Вы меня наверно совсем не слышите.

x:=form1.left;
y:=form1.top;

не работает!!!
выдает ошибку на строке

x:=form1.left;

[Error] Unit1.pas(44): Incompatible types: 'String' and 'Integer'

[JTG]

Ну значит Х обьявлен строковой переменной

[Shouldercannon]

Подскажите как будет правильно.

[ArtInt]

Да, JTG абсолютно прав, В сообщении же написано Несовпадене типов String и Integer.
Значит тут два пути:
1.Объявить x,y: integer;
либо
2. если x,y: string;
x:=inttostr(Form1.left);
y:=inttostr(Form1.top);

И можешь вставить данный код в исходник, который до этого скинул.
Или, например, в Resize формы вставить или как уже говорилось через таймер. Так что вариантов много.

[Shouldercannon]

Получилось только почему-то значение y постоянно 352 как ни крути в чем ошибка.

[ArtInt]

Где значение 352? Скачал исходник откомпилировал и форма запустилась. При перемещении значения 2-х label изменялись правильно при перемещении формы...

[Shouldercannon]

Ну это да. Допустим я потаскал форму и закрыл ее со значениями x=0, y=0, после чего я снова запускаю exe и вижу, что y не 0, а 352. Проблема возникает после запуска exe и считывания координат формы.

[ArtInt]

Если сделать так, то все будет работать нормально:

var
  Form1: TForm1;
  x, y: string;
  zapusk: boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var F: TINIFile;
begin
{Чтение}
F:=TINIFile.Create((ExtractFilePath(Application.ExeName))+'config.ini');
x:=F.ReadString('Position', 'x', '0');
y:=F.ReadString('Position', 'y', '0');
F.Free;
zapusk:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var F: TINIFile;
begin
{Запись}
F:=TINIFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
F.WriteString('Position', 'x', x);
F.WriteString('Position', 'y', y);
F.Free;
end;

procedure TForm1.OnMove(var Msg: TWMMove);
begin
if zapusk=true then
begin
Form1.SetFocus;
Form1.Left:=StrToInt(x);
Form1.Top:=StrToInt(y);

Label1.Caption:=x;
Label2.Caption:=y;
//showmessage(y);
zapusk:=false;
end else
begin
x:=IntToStr(Form1.Left);
y:=IntToStr(Form1.Top);

Label1.Caption:=x;
Label2.Caption:=y;
end;

end;