Автоматически вылезает и не двигается форма

[SlashMan]

Добрый вечер, проблемма такова:
В проекте есть две формы: Form1 и Form2 соответственно..

В один прекрасный момент Form2 перестала двигаться, тоесть я открываю ее через меню в Form1 начинаю перемещать за заголовок, а она висит как вкопаная...
решил покопаться в ее свойствах.. докопался. теперь проблеммы уже две.

мало того что она не двигается, так она еще и автоматически открывается вместе с Form1..

Надеюсь на вашу помощь, спасибо

[mihali4]

Мы что - гадалки?
Где листинг?

[856100]

мало того что она не двигается, так она еще и автоматически открывается вместе с Form1..

Свойство form2.visible должно стоять FALSE

а по остальному - без кода помочь невозможно

[SlashMan]

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Menus, ImgList, Grids, DBGrids, DB,
  ZAbstractRODataset, ZAbstractDataset, ZDataset, DBCtrls, FMTBcd, SqlExpr;

type
  TWishes = class(TForm)
    ProgressBar1: TProgressBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ListView1: TListView;
    DBPhotos32: TImageList;
    WishSQL: TZQuery;
    DataSource1: TDataSource;
    DBImage32: TDBImage;
    DBDescription: TDBText;
    DBId: TDBText;
    DBPrice: TDBText;
    DBTitle: TDBText;
    DBImage128: TDBImage;
    DBPhotos128: TImageList;
    Label2: TLabel;
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Wishes: TWishes;
  I:Integer;
  Rows:Integer;
implementation

uses Unit1, Unit6;

{$R *.dfm}

procedure TWishes.FormCreate(Sender: TObject);
var
  ListItem:TListItem;
begin
  WishSQL.SQL.Clear;
  WishSQL.SQL.Add('SET NAMES cp1251');
  WishSQL.ExecSQL;
  WishSQL.SQL.Clear;
  WishSQL.SQL.Add('SELECT * FROM wishes');
  WishSQL.ExecSQL;
  Rows:=WishSQL.RowsAffected;
  WishSQL.SQL.Clear;
  for I := 0 to Rows-1 do
  begin
    WishSQL.SQL.Add('SELECT * FROM wishes ORDER BY id ASC LIMIT '+IntToStr(I)+',1');
    WishSQL.Active:=True;
    ListItem:=ListView1.Items.Add;
    ListItem.ImageIndex:=I;
    ListItem.SubItems.Add(DBTitle.Caption);
    ListItem.SubItems.Add(DBPrice.Caption);
    DBPhotos32.Add(DBImage32.Picture.Bitmap,nil);
    if(Total >= StrToInt(DBPrice.Caption))then
      ListItem.SubItems.Add('100')
    else
      ListItem.SubItems.Add(IntToStr(Trunc((Total/StrToInt(DBPrice.Caption))*100)));

    WishSQL.Active:=False;
    WishSQL.SQL.Clear;
  end;
  ///xx
  ListItem:=ListView1.Items[1];
  ListItem.Delete;
end;

procedure TWishes.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if Item.SubItems.Strings[2]='100' then
  begin
    ProgressBar1.Position:=100;
    Label2.Caption:='0 Дней.';
  end
  else
  begin
    ProgressBar1.Position:=Trunc(((Total/StrToInt(Item.SubItems.Strings[1]))*100));
    Label2.Caption:=IntToStr(Trunc(StrToInt(Item.SubItems.Strings[1])/Daily))+' - '+IntToStr(Trunc(StrToInt(Item.SubItems.Strings[1])/Daily)+1)+' Дней.';
  end;

end;

procedure TWishes.N2Click(Sender: TObject);
begin
  AddWish.Show;
end;

end.

С Visible что-то тупанул) сам не заметил как поменял его на True..
А вот форма все равно не двигается

[Пепел Феникса]

весь проект в архиве кроме ЕХЕ...может у вас что то не то в свойствах

[Wicort]

Вероятно у Form2 стоит свойство Position = poScreenCenter

[mihali4]

Этот параметр влияет только на положение формы в момент создания.
Двигать ее потом можно сколько угодно.

То ТС: а вторая форма фокус получает?

[psycho-coder]

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

Вероятно у Form2 стоит свойство Position = poScreenCenter

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

SlashMan посмотрите свойства :
Enabled = true
BorderStyle = bsSizeable

[Altera]

Да скорее всего вторая форма у него при открытии в бесконечный цикл вылетает или ещё что-то вроде такого... A form1 двигается?

[SlashMan]

Все, проблемму решил =)

Если кому интересно то проблемма была в значении параметра Align.
Достаточно было установить его значение в "alNone".

Всем большое спасибо за помощь.