说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

菜鸟又问了三个问题,好像更简单更轻松,更好拿分

编辑:说三道四文库 发布时间:2018-06-22 11:05
HTML文档下载 WORD文档下载 PDF文档下载
1。 请问能不能在窗体里显示word文档?
     对了,哪一种控件能在窗体上显示文本,并有微弱的编辑功能?除了memo以外?

2。在combobox里面,我用如下代码把表中的数据加到combobox的item里面
      table1.open
      table1.first;
      while not table1.eof do
         begin
           a3:=table1.fieldbyname('account').asstring;
           combobox1.items.add(a3);
           table1.next;
         end;
  但是account字段中的数据里面有个别的我不想放在combobox里面(这些数据是有特征的,可以通过query查询出来)  请问怎样操作能够在combobox里面去除这些数据?
   
3。我想在程序里面调用记事本,计算器等外部程序怎么做?
   windows API?是怎么用的?
关于2。
  就是在combobox上怎么操作?
winexec
调用外部程序函数,
第二个问题是在
add之前判断一下:)

如果满足条件就add
 else
不add
第1个问题

trichedit类

richedit控件
2 combobox.items.delete
3   winexec('e:\winnt\System32\calc.exe',SW_SHOW);
1.我也在找这种控件,好像richedit不行
2.table1.open
  table1.first;
  while not table1.eof do
    begin
      if table1.fieldvalue['account']<>'由特征的那些数据' then
      begin
      a3:=table1.fieldbyname('account').asstring;
      combobox1.items.add(a3);
      end;
      table1.next;
     end;
3.shellexecute(handle,nil,'c:\windows\CALC.exe',nil,nil,sw_show);
shellexecute
别忘了再use那加上shellapi
winexec('e:\winnt\System32\calc.exe',SW_SHOW);

怎么表示系统目录和当前目录?
有时在程序中需要启动其他应用程序,可以通过Windows API 函数C r e a t e P r o c e s s 或
Wi n E x e c 来实现。
例程S16_31 该例程(运行界面如图1 6 - 5 0 所示)对在程序中运行其他程序进行了说明。
参照图1 6 - 5 0 定制窗体,添加B u t t o n 组件的O n C l i c k 事件的处理过程如下:
procedure TForm1.Button1Click(Sender: TO b j e c t ) ;
v a r
S t a r t u p I n f o : T S t a r t u p I n f o ;
P r o c e s s I n f o : T P r o c e s s I n f o r m a t i o n ;
b e g i n
// 初始化工作
F i l l C h a r ( S t a r t u p I n f o , S i z e o f ( S t a r t u p I n f o ) , # 0 ) ;
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STA RT F _ U S E S H O W W I N D O W;
C r e a t e P r o c e s s ( n i l ,
'Calc', // 运行计算器
n i l ,
n i l ,
f a l s e ,
C R E ATE_NEW_CONSOLE or
N O R M A L _ P R I O R I T Y _ C L A S S ,
n i l ,
n i l ,
S t a r t u p I n f o ,
P r o c e s s I n f o ) ;
procedure TForm1.Button2Click(Sender: TO b j e c t ) ;
b e g i n
Wi n E x e c ( ' N o t e P a d ' , S W _ R E S TORE); // 运行写字本
e n d ;
你整理一下吧,别忘了给分,:)
table1.open
  table1.first;
  while not table1.eof do
    begin
      if table1.fieldvalue['account']<>'由特征的那些数据' then
      begin
      a3:=table1.fieldbyname('account').asstring;
      combobox1.items.add(a3);
      end;
      table1.next;
     end;
3.shellexecute(handle,nil,'c:\windows\CALC.exe',nil,nil,sw_show);
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘