请问三个问题。

Question

为什么QUERY1.RECNO总是返回-1的值呢？为什么我用QUERY1.NEXT(PRIOR),并且检测QUERY1.EOF(BOF),我在DGGRID中明明见到指针已经到了头(尾),但是还要按一次QUERY1.NEXT(PRIOR)，指针不动，才会检测到EOF（BOF） 我做了一个PANEL（包含三个tEDIT，两个tBUTTON，）我想复制这个PANEL，我应该怎么样做呢，

Answer 1

1)除非是Paradox和DBase，对于其他数据库，BDE没有完成这个属性。
2)因为没有RecNo，所以只能这样咯。BDE的数据库都是这样的。
3)点这个Panel，按Ctrl+C，然后在需要的地方Ctrl+v

Answer 2

但是，要怎么样才能有这样类似这些的功能或者解决方法。还有PANEL不是在编写的问题，是在程序中动态生成。我用了NEWPAN：=SOUPAN.CREATE（SELF），报错，说有一样的同名的组件。不行啊。也试过 NEWPAN：=TPANEL.CREATE（SELF）；NEWPAN：=SOUPAN；。但原来那个soupan就不见了
请赐教!

Answer 3

看看Delphi的书吧，创建应该这样
newPan := TPanel.Create(Self);
newPan.Parent := Self;
newPan.Left := 100;
newPan.Width := 200;
...

Answer 4

我知道啊。
newPan := TPanel.Create(Self);
newPan.Parent := panel1;
newPan.Left := 100;
newPan.Width := 200;
明天给你代码看。：）

Answer 5

为什么QUERY1.RECNO总是返回-1的值呢？为什么我用QUERY1.NEXT(PRIOR),并且检测QUERY1.EOF(BOF),我在DGGRID中明明见到指针已经到了头(尾),但是还要按一次QUERY1.NEXT(PRIOR)，指针不动，才会检测到EOF（BOF） 
怎么样解决，有什么好办法，可以知道TQUERY的当前记录位置.object OffMonForm: TOffMonForm
  Left = 237
  Top = 197
  Width = 712
  Height = 480
  Caption = 'OffMonForm'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 121
    Height = 105
    Caption = 'GroupBox1'
    TabOrder = 0
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 112
    Width = 121
    Height = 177
    Caption = 'GroupBox2'
    TabOrder = 1
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 296
    Width = 121
    Height = 153
    Caption = 'GroupBox3'
    TabOrder = 2
  end
  object MainPan: TPanel
    Left = 128
    Top = 8
    Width = 555
    Height = 441
    TabOrder = 3
    object SourcePan: TPanel
      Left = 0
      Top = 0
      Width = 553
      Height = 73
      TabOrder = 0
      object Edit1: TEdit
        Left = 8
        Top = 8
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 144
        Top = 8
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object Edit3: TEdit
        Left = 288
        Top = 8
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object Edit4: TEdit
        Left = 424
        Top = 8
        Width = 121
        Height = 21
        TabOrder = 3
      end
      object Button1: TButton
        Left = 472
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Release'
        TabOrder = 4
      end
      object Button2: TButton
        Left = 392
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Creater'
        TabOrder = 5
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 312
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Calculate'
        TabOrder = 6
        OnClick = Button3Click
      end
    end
  end
  object MainScrollBar: TScrollBar
    Left = 684
    Top = 8
    Width = 16
    Height = 441
    Kind = sbVertical
    PageSize = 0
    TabOrder = 4
  end
end

Answer 6

如果确实希望记录得当前位置，建议使用DataSnap（MIDAS），那个东东确实会告诉你RecNo是多少。

Answer 7

哦，试试先。
刚刚死机了。！unit OffMonUnit;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TOffMonForm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    MainPan: TPanel;
    MainScrollBar: TScrollBar;
    SourcePan: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    Procedure CreateNewPan(const ObjName:shortString;const Creater:TwinControl);
    Procedure FreeObj(FreePan:TPanel);
  public
    { Public declarations }
  end;var
  OffMonForm: TOffMonForm;implementation{$R *.dfm}Procedure TOffMonForm.FreeObj(FreePan:TPanel);
begin
  
end;Procedure ToffmonForm.CreateNewPan(const ObjName:shortString;const Creater:TwinControl);//这想要个功能，但是是用一个CREATER来做，听说是什么容器的。不会.
var
  NewPan:TPanel;
  NewEdit:Tedit;
  NewBut:Tbutton;
  i:integer;
begin
  newPan:= Tpanel.Create(self);
  newpan.Name :='pan'+objName;
  newpan.Parent :=mainPan;
  newpan.Caption :='';
  newpan.Top:=creater.Top + creater.Height ;
  newpan.Left := creater.Left ;
  newpan.Width :=creater.Width ;
  newpan.Height := creater.Height ;
  for i:= 0 to 6 do
  begin
    if creater.Controls[i].ClassType = Tedit then
    begin
      newedit:=Tedit.Create(self);
      newedit.Name :='Newedit'+objname+inttostr(i);
      newedit.Parent :=newpan;
      newedit.Text :='';
      newedit.Top :=(creater.Controls[i] as Tedit).Top ;
      newedit.left :=(creater.Controls[i] as Tedit).left ;
      newedit.width :=(creater.Controls[i] as Tedit).width ;
      newedit.height :=(creater.Controls[i] as Tedit).height ;
    end
    else
    begin
      newbut:=Tbutton.Create(self);
      newbut.Name :='newbut'+objname+inttostr(i);
      newbut.Parent :=newpan;
      newbut.Caption :=(creater.Controls[i] as Tbutton).Caption ;
      newbut.Top :=(creater.Controls[i] as Tbutton).Top ;
      newbut.left :=(creater.Controls[i] as Tbutton).left ;
      newbut.width :=(creater.Controls[i] as Tbutton).width ;
      newbut.height :=(creater.Controls[i] as Tbutton).height ;
      newbut.OnClick :=(creater.Controls[i] as Tbutton).OnClick ;
    end;
  end;
end;
procedure TOffMonForm.Button2Click(Sender: TObject);
begin
  createnewpan(inttostr((sender as Tbutton).Parent.ComponentIndex),(sender as Tbutton).Parent);
  (sender as Tbutton).Enabled :=false;
end;procedure TOffMonForm.Button3Click(Sender: TObject);
begin
  with (sender as Tbutton).Parent do
  begin
    if ((controls[0] as tedit).Text = '') or ((controls[1] as tedit).Text = '') or((controls[2] as tedit).Text = '') then
    begin
      showmessage('Empty Value!');
    end
    else
    begin
      if (controls[2] as tedit).Text = '-' then
      (controls[3] as tedit).Text := inttostr(strtoint((controls[0] as tedit).Text) - strtoint((controls[1] as tedit).Text))
      else if (controls[2] as tedit).Text = '+' then
      (controls[3] as tedit).Text := inttostr(strtoint((controls[0] as tedit).Text)+strtoint((controls[1] as tedit).Text))
      else if (controls[2] as tedit).Text = '/' then
      (controls[3] as tedit).Text := inttostr(strtoint((controls[0] as tedit).Text) div strtoint((controls[1] as tedit).Text))
      else if (controls[2] as tedit).Text = '*' then
      (controls[3] as tedit).Text := inttostr(strtoint((controls[0] as tedit).Text)*strtoint((controls[1] as tedit).Text))
      else
        showmessage('!!');
    end;
  end;
end;end.