Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2010, 22:44   #1
SlashMan
Пользователь
 
Регистрация: 14.07.2009
Сообщений: 30
По умолчанию Автоматически вылезает и не двигается форма

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

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

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

Надеюсь на вашу помощь, спасибо
SlashMan вне форума Ответить с цитированием
Старый 10.01.2010, 23:49   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Мы что - гадалки?
Где листинг?
mihali4 вне форума Ответить с цитированием
Старый 11.01.2010, 01:14   #3
856100
Форумчанин
 
Регистрация: 12.08.2008
Сообщений: 135
По умолчанию

Цитата:
мало того что она не двигается, так она еще и автоматически открывается вместе с Form1..
Свойство form2.visible должно стоять FALSE

а по остальному - без кода помочь невозможно
Будь проще, бери пример с одноклеточных
856100 вне форума Ответить с цитированием
Старый 12.01.2010, 21:36   #4
SlashMan
Пользователь
 
Регистрация: 14.07.2009
Сообщений: 30
По умолчанию

Код:
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..
А вот форма все равно не двигается
SlashMan вне форума Ответить с цитированием
Старый 12.01.2010, 21:59   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

весь проект в архиве кроме ЕХЕ...может у вас что то не то в свойствах
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 12.01.2010, 22:57   #6
Wicort
Форумчанин
 
Аватар для Wicort
 
Регистрация: 04.08.2009
Сообщений: 684
По умолчанию

Вероятно у Form2 стоит свойство Position = poScreenCenter
Еслия Вам помог, не поленитесь нажать на весы и оставить отзыв. Это не займет много времени, но даст понять, что я старался не зря =)
Мой ник зарегистрирован, а твой?
Wicort вне форума Ответить с цитированием
Старый 13.01.2010, 00:45   #7
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

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

То ТС: а вторая форма фокус получает?
mihali4 вне форума Ответить с цитированием
Старый 13.01.2010, 00:50   #8
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

Цитата:
Сообщение от Wicort Посмотреть сообщение
Вероятно у Form2 стоит свойство Position = poScreenCenter
эээ. Ну вообщето это свойство задает начальное положение на экране, но ни как не привязывает форму к намертво.

SlashMan посмотрите свойства :
Enabled = true
BorderStyle = bsSizeable
psycho-coder вне форума Ответить с цитированием
Старый 13.01.2010, 07:48   #9
Altera
Старожил
 
Аватар для Altera
 
Регистрация: 29.01.2008
Сообщений: 2,406
По умолчанию

Да скорее всего вторая форма у него при открытии в бесконечный цикл вылетает или ещё что-то вроде такого... A form1 двигается?
Altera вне форума Ответить с цитированием
Старый 14.01.2010, 18:11   #10
SlashMan
Пользователь
 
Регистрация: 14.07.2009
Сообщений: 30
По умолчанию

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

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

Всем большое спасибо за помощь.
SlashMan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вылезает ошибка with massage 'Invalid floating point operation' подскажите как устранить. Herly Помощь студентам 2 09.01.2010 18:56
Автоматически преобразовывать JPEG amigo555 Мультимедиа в Delphi 1 01.05.2009 20:18
Форма Заяки не работает автоматически Brox Microsoft Office Excel 4 08.11.2008 15:07
ШАрик двигается по петли jomix Помощь студентам 3 01.06.2007 12:46
Автоматически запускать приложение лисенок БД в Delphi 3 17.04.2007 23:39