可以先读权限,再添加combobox选项
解决方案 »
- 脑子晕了,一个SQL语句问题,请大家帮忙修正!
- 怎样在自定义word里面的宏?
- 怎样判断Memo中的最后一个字符是不是'。'?????? 在线等
- delphi中调用DLL文件时,数组是怎么调用的(实参数组和形参数组的相互传递)?
- 各位前辈,想问一个自定义函数放置位置及取名的问题?
- 菜鸟要学adodataset 问一些小问题!
- 如何实现在一个panel里播放flash和rm要设置rm的DisplayRect和Notify吗
- 能给一个能下到delphi网络编程方面书的地址吗? 当然是要免费.谢谢了先!
- 如何动态给不同类型的控件赋OnMouseDown事件?
- 请问如何取得一个进程属下所有窗口的句柄?
- 如何更新monthcalendar控件的当前日期?
- 如何是窗体大小根据分辨率的不同自动调整,可以做到吗?
var A, B: array of Integer;
begin
SetLength(A, 1);
A[0] := 1;
B := A;
B[0] := 2;
end;
在窗体上放一个edit1,combobox1,botton1,然后
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='1' then
begin
combobox1.Items.Clear;
combobox1.Items.Add('a');
end;
if edit1.Text='2' then
begin
combobox1.Items.Clear;
combobox1.Items.Add('b');
end;
end;
在窗体上放一个edit1,combobox1,botton1,然后
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='1' then
begin
combobox1.Items.Clear;
combobox1.Items.Add('a');
end;
if edit1.Text='2' then
begin
combobox1.Items.Clear;
combobox1.Items.Add('b');
end;
end;