各位兄弟，怎么做成这样的界面啊，可用分只有十分，送你个十分健康，望海涵

Question

http://downloads.2ccc.com/general/database/FQ.MRP.gif各位兄弟，怎么做成这样的界面啊，可用分只有十分，送你个十分健康，望海涵先声谢谢

Answer 1

已搞定，各位，看一看这一个问题:var
  Excelapp:variant;
     begin
          Excelapp:=createOleObject('Excel.application');
          Excelapp:=unassigned;         //这一句怎么理解
还有
    var
       Mynode:TTreenode;
            begin
             
              Mynode.data属性怎么理解?谢谢，非常感谢CSDN上的朋友，真的没有可用分，深深的祝大家身体健康

Answer 2

置空，就像s:='';i:=0;b:=false;
data表示显示的String型名字。

Answer 3

var
       Mynode:TTreenode;
            begin
             
              Mynode.data属性怎么理解?
TTreeNode.data属性是一个指针变量，看Delphi的例子：
PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;procedure TForm1.Button1Click(Sender: TObject);var
  MyRecPtr: PMyRec;
  TreeViewIndex: LongInt;
begin
  New(MyRecPtr);
  MyRecPtr^.FName := Edit1.Text;
  MyRecPtr^.LName := Edit2.Text;
  TreeViewIndex := StrToInt(Edit3.Text);
  with TreeView1 do
  begin
    if Items.Count = 0 then
      Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
    else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then      Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
  end;
end;procedure TForm1.Button2Click(Sender: TObject);begin
  Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
                  PMyRec(TreeView1.Selected.Data)^.LName;
end;

Answer 4

Excelapp:=unassigned;         //这一句是不是说还没有将某个外部Excel文档赋给该变量？

Answer 5

excelapp.quit; 后再加一句
Excelapp:=unassigned;
excel导出的文件才能打开，不知为什么吗

Answer 6

怎么问题都变了？？？
那个是用第三方控件做的，delphibox就有这个程序的源码，你下来用DELPHI读一下就知道需要什么控件了。好像在BOX下面的跟贴里就有说明使用了什么控件

Answer 7

晕，那个就是一个背景图片+Speedbutton就可以了