把自己的函数放在某个unit的interface部分,其他使用该函数的单元uses该unit

解决方案 »

  1.   

    SendMessage( 
      ComboBox1.Handle,              // handle to destination window
      CB_SHOWDROPDOWN,          // message to send
      true,          // show state
      0          // not used; must be zero
    );
      

  2.   

    1.你是说把Combo的下拉菜单打开吧。
    TComboBox.DroppedDown:= True;2.把函数放在一个unit中,新建一个无Form的Unit,然后在interface部分
    声明并在Implementation中实现。在其他Form的Unit中,use这个unit.
    use方法:File->Use Unit。(Alt+F11)。调用时最好加上Unit的名字,不加
    也可以。我真罗嗦
      

  3.   

    2.up1.例如股票软件:Edit1输入股票代码,在Edit1的OnChange是件处理中,根据目前输入的代码,不完全匹配查抄找股票信息,然后将所有符合条件的股票在List中列出来。
    当然,也可以用ComboBox的输入框和下拉框来替换上述的Edit1和List。原理相同。
      

  4.   

    40Star(陪你去看--☆流星雨★) :你的方法好象不太对我把TRUE改成了1,是可以了但是好象老是死机bisc_sunny(分特中) :用你的办法怎么一点效果都没有啊???
    ComboBox1.DroppedDown:= True;
    我是这么改的你看有问题吗?
      

  5.   

    怎么可能,我刚试过没有问题阿procedure TForm1.Button1Click(Sender: TObject);
    begin
        Self.ComboBox1.DroppedDown := True;
    end;procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
    begin
        Self.ComboBox1.DroppedDown := True;
    end;