delphi内combobox用法？
combobox1.Items.Clear; combobox1.Items.Add(‘第一项选择’)
; combobox1.Items.Add(‘第二项选择’)
; combobox1.Items.Add(‘第三项选择’)
;只要将要选择的内容加入到 combobox1.Items中就可以了
Delphi7中怎样实现两个ComboBox之间的内容关联？
写函数，然后在ComboBox1中的“OnChange”事件中添加“ComboBox”的内容
如何让Lazarus或Delphi的MessageBox能显示中文？
在Lazarus中有一个问题，就是当你使用MessageBox时不能显示中文信息，这对于英文不好的说实属一个大问题。实质上现如今的软件都基本上是使用UNICODE编码，支持几十种语言，所以就不是什么大问题了，但对于新手来说可能略显困难！正确显示中文的做法如下：
MessageBox(0,PChar(UTF8ToAnsi(‘正常显示中文’)),PChar(UTF8ToAnsi(‘提示’)),MB_OK or MB_ICONEXCLAMATION);
在delphi中用ComboBox下拉框与checkbox合在一起怎么用(可以用INI方式最好 )？
给你一份代码，用了笨办法，目的是让你更容易读懂程序的流程，代码还可以优化，就看你自己的了。代码已经测试通过了(Windows XP + Delphi7)，把代码拷贝到你的IDE里就可以了，全部代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; cb: TComboBox; ck1: TCheckBox; ck2: TCheckBox; ck3: TCheckBox; ck4: TCheckBox; ck5: TCheckBox; ck6: TCheckBox; procedure cbChange(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; f1: TextFile; //这是文件变量implementation{$R *.dfm}procedure TForm1.cbChange(Sender: TObject);//begin If cb.ItemIndex = 0 Then //如果选择第一项 ，则复选框1-3选中 begin ck1.Checked := True; ck2.Checked := True; ck3.Checked := True; ck4.Checked := false; ck5.Checked := false; ck6.Checked := false; end; If cb.ItemIndex = 1 Then //如果选择第二项 ，则复选框4-6选中 begin ck1.Checked := false; ck2.Checked := false; ck3.Checked := false; ck4.Checked := True; ck5.Checked := True; ck6.Checked := True; end;end;procedure TForm1.Button1Click(Sender: TObject);begin AssignFile(f1,’check.txt’); //以可写方式打开一个文件，不存在则创建，存在则覆盖 Rewrite(f1); //打开文件准备读写 //下面代码保存checkbox的状态，选中为1，未选中为0 if ck1.Checked Then Writeln(f1,’1′) else Writeln(f1,’0′); if ck2.Checked Then Writeln(f1,’1′) else Writeln(f1,’0′); if ck3.Checked Then Writeln(f1,’1′) else Writeln(f1,’0′); if ck4.Checked Then Writeln(f1,’1′) else Writeln(f1,’0′); if ck5.Checked Then Writeln(f1,’1′) else Writeln(f1,’0′); if ck6.Checked Then Writeln(f1,’1′) else Writeln(f1,’0′); CloseFile(f1); //关闭文件end;procedure TForm1.FormCreate(Sender: TObject); var s1: String; //临时变量beginif FileExists(‘check.txt’) Then //判断设置文件是否存在 begin AssignFile(f1,’check.txt’); Reset(f1); //以只读方式打开文件 Readln(f1,s1); //读取第一行 ck1.Checked := Boolean(StrToInt(s1));//把第一行的内容转换为布尔值后赋值给复选框1，下同 Readln(f1,s1); ck2.Checked := Boolean(StrToInt(s1)); Readln(f1,s1); ck3.Checked := Boolean(StrToInt(s1)); Readln(f1,s1); ck4.Checked := Boolean(StrToInt(s1)); Readln(f1,s1); ck5.Checked := Boolean(StrToInt(s1)); Readln(f1,s1); ck6.Checked := Boolean(StrToInt(s1)); CloseFile(f1); //一定记得关闭文件 end;end;end.
delphi中如何使用ListBox？
procedure TForm1.ListBox1Click(Sender: TObject)
;var L1:string; L2:integer;begin L1:=listbox1.Items.Strings[ListBox1.ItemIndex]
; L2:=ListBox2.Items.IndexOf(L1)
; ListBox2.Selected[L2]:=True;end;上面代码有个要求，就是ListBox1和ListBox12里面的字符要相同，才能对应选上。
如果你的程序中两个ListBox里面的字符不一样，那上面代码仅供参考用。
