VPF::Не могу сдвинуть окно - Форум программистов

Boyur

Дата 3.6.2012, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Не могу сдвинуть главное окно?
Размер окна могу изменить а сдвинуть нет.
В чем может быть проблема?

XperT

Дата 3.6.2012, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4

Да вариантов на самом деле много. Если не используете разного рода скины, тогда скорее всего стоит какой-то обработчик на событие сдвига окна в котором и блокируется это действие. Показали бы вы код формы.

Boyur

Дата 3.6.2012, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Код


unit general;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Menus, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.DBCtrls;

type
  TForm_general = class(TForm)
    ADOConnection1: TADOConnection;
    Label1: TLabel;
    TableUsers: TADOTable;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    TableQSklad: TADOTable;
    QSklad: TDataSource;
    DBGrid1: TDBGrid;
    TableQSkladmed_name: TWideStringField;
    TableQSkladdei_veshestvo: TWideStringField;
    TableQSkladfirma: TWideStringField;
    TableQSkladName_kat: TWideStringField;
    TableQSkladkolvo: TIntegerField;
    TableKategoria: TADOTable;
    TableKategoriaid: TAutoIncField;
    TableKategoriaName_kat: TWideStringField;
    TableSklad: TADOTable;
    TableSkladid: TAutoIncField;
    TableSkladid_med: TIntegerField;
    TableSkladkolvo: TIntegerField;
    N7: TMenuItem;
    N8: TMenuItem;
    QueryId: TADOQuery;
    N9: TMenuItem;
    DBGrid2: TDBGrid;
    TableSkladOtdel: TADOTable;
    TableQSkladOtdel: TADOTable;
    QSkladOtdel: TDataSource;
    TableQSkladOtdelmed_name: TWideStringField;
    TableQSkladOtdeldei_veshestvo: TWideStringField;
    TableQSkladOtdelfirma: TWideStringField;
    TableQSkladOtdelkolvo: TWideStringField;
    TableQSkladOtdelid_otdel: TIntegerField;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    TableSkladOtdelid: TAutoIncField;
    TableSkladOtdelid_otdel: TIntegerField;
    TableSkladOtdelid_med: TIntegerField;
    TableSkladOtdelkolvo: TWideStringField;
    N13: TMenuItem;
    TableQSkladid: TAutoIncField;
    TableQSkladid_Kat: TAutoIncField;
    TableUsersid: TAutoIncField;
    TableUserslogin: TWideStringField;
    TableUserspass: TWideStringField;
    TableUsersfio: TWideStringField;
    TableUsersid_otdel: TIntegerField;
    TableUsersid_prava: TIntegerField;
    TableOtdelenia: TADOTable;
    TableOtdeleniaid: TAutoIncField;
    TableOtdelenianame_otdel: TWideStringField;
    TableMedikam: TADOTable;
    TableMedikamid: TAutoIncField;
    TableMedikammed_name: TWideStringField;
    TableMedikamdei_veshestvo: TWideStringField;
    TableMedikamfirma: TWideStringField;
    TableMedikamid_kat: TIntegerField;
    N14: TMenuItem;
    Label2: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    Label7: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_general: TForm_general;
  i,ii,n,f,prava,otdel,user:integer;
  db,pfail:string;
  fail:TextFile;
implementation

{$R *.dfm}
Uses login,otdelenia,medikam,prihod,prihod_med,spisanie,spisanie_med,
treb_naklad,treb_naklad_med,treb_nakladA,treb_naklad_medA,prihod_naklad,prihod_naklad_med;
procedure TForm_general.FormCreate(Sender: TObject);
begin

pfail:=ExtractFilePath(Application.ExeName)+'data.txt';
AssignFile(fail, pfail);
Reset(fail); // открыть для чтения
readln(fail, db);
CloseFile(fail); // закрыть файл


ADOConnection1.Connected:=False;
//db:='C:/Users/Артем/Desktop/medikamenti 0.1/db.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; '+
'Persist Security Info=False; Data Source='+db+';';
ADOConnection1.Connected:=True;
TableQSklad.Active:=True;
TableSklad.Active:=True;
TableQSkladOtdel.Active:=True;
TableSkladOtdel.Active:=True;
TableUsers.Active:=True;
TableOtdelenia.Active:=True;

end;

procedure TForm_general.Label1Click(Sender: TObject);
begin
TableUsers.First;
for ii := 1 to TableUsers.RecordSet.RecordCount do
begin
//Label1.Caption:=ADOTable1.FieldByName('fio').AsString;
if (Form_login.Edit1.Text=TableUsers.FieldByName('login').AsString)
    then
      begin
     Label1.Caption:=TableUsers.FieldByName('fio').AsString;
      end
    else
    TableUsers.Next;

   // ShowMessage('Ошибка!');
end;
end;

procedure TForm_general.N11Click(Sender: TObject);
begin
FormTrebNaklad.ShowModal;
end;

procedure TForm_general.N12Click(Sender: TObject);
begin
FormTrebNakladA.ShowModal;
end;

procedure TForm_general.N13Click(Sender: TObject);
begin
FormPrihodNaklad.ShowModal;
end;

procedure TForm_general.N2Click(Sender: TObject);
begin
FormOtdelenia.ShowModal;
end;

procedure TForm_general.N5Click(Sender: TObject);
begin
FormMedikam.ShowModal;
end;

procedure TForm_general.N8Click(Sender: TObject);
begin
FormPrihod.ShowModal;
end;

procedure TForm_general.N9Click(Sender: TObject);
begin
FormSpisania.ShowModal;
end;

end.

Boyur

Дата 3.6.2012, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Разобрался
Свойство формы Align := alCustom; в этом проблема была

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »