как избавиться от констант в лазарусе

[Temaaas]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
                var
                  x1,x2,y1,y2:integer;
procedure TForm1.Panel1Click(Sender: TObject);
begin

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel2.Left:=X;
  Panel2.Top:=Y;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  y2:=Panel2.Top;
  y1:=Panel1.Top+Panel1.Height;
  x1:=Panel2.Left+Panel2.Width;
  x2:=Panel2.Left;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
  x1:=Panel2.left;
  y1:=panel2.Top;
  if y1>296 then
  panel2.Left:=712;
  panel2.Top:=642;
  if y1<296 then
  panel2.left:=568;
  panel2.Top:=640;
end;

end.

вот есть программа как в ней избавиться от констант)ну в общем надо через свойства толи формулу прописывать толи по другому но чтобы не было этих заданных координат..помогите пожалуйста)

[Stilet]

А что вместо них?

[VinDiz]

убери их с общего Var и описуй только в тег процедурах где они тебе надо

[Temaaas]

мне препод сказал что в случае в том если мы откроем программу в меньшем окне у нас должна вторая панель падать не в конкретные заданные координаты а в заданную область как то так

[VinDiz]

ты имеешь ввиду привязать размер панели к самой форме? То - есть если уменьшается окно то уменьшается форма?

[Temaaas]

дааа что то типо того)можете помочь очень надо вообще(мне даже толком не объяснить но я думаю вы понимаете))

[Stilet]

а в заданную область как то так

Так это достигается не константами а установкой свойства Anchor, после настройки в дизайне размещения панелей. Тогда какой бы размер окно не получало ее панели будут подстраиваться изменяя размеры пропорционально окну. Либо же устанавливаются свойства Align для выравнивания. Координатами же рулить в этом случае - грабли. По крайней мере тебе придется описывать OnResize для этого случая, уж если хочется покамасутрится.

[VinDiz]

Литература тебе в помощь......сам читаю и то не все понимаю

[Temaaas]

мне нужно чтобы Panel2 при клике не в эти координаты перемещалась а в ту область значений за panel1 в зависимости от условия либо за нее либо перед ней )это в общем типо волейбола)

[VinDiz]

Тебе надо правильно формулировать условие! Потому что тебя очень тяжело понять! Например твое последние сообщение непонятно!