新手问题(非常简单)

Question

1.怎样设置画上的控件(如:TButton)的字体默认为"宋体",9号?
2.怎样设置窗体属性为不能改变大小(vb中窗体有个BorderStyle属性)?
3.Delphi6中可以锁定控件吗?(像Vb中的锁定一样,即画上各控件且调整好各控件位置,锁定后不能调整)
4.在delphi中有没有可以测量文本长度的函数(像vb中的.TextWidth)
5.请大家指点一下:
我要编一个从左边listbox中选中一些项目到右边的listbox,然后删除左边所选项目的程序,但总是有些一问题,请大家帮忙写个例子吧!!  可以贴上来也可以发到: [email protected]   先谢了!!!!!!!我是初学delphi   请大家多多指教!!!!!!!!!

Answer 1

1\\ font属性
2\\ borderstyle中设置
3\\ EDIT菜单倒数第二个
4\\ 有   strlength

Answer 2

1.Button中Font属性，进去设置；
2.BorderStyle属性设为bsSingle；
3.Edit->Lock Controls；
4.Length()；
5.……items.Add，items.Delete...

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
     for i:=0 to listbox1.Count-1 do
         begin
         listbox2.Items.Add(listbox1.Items.Strings[i]);end;
     listbox1.Items.Clear;
end;

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
   s:='fdfdfs';
   showmessage(inttostr(length(s)));    //求长度
end;

Answer 5

1.Button中Font属性，进去设置；
2.BorderStyle属性设为bsSingle；
3.Edit->Lock Controls；
4.Length()；
5.……items.Add，items.Delete...

Answer 6

1:
设置环境参数,使每次画tbutton时都不用再重新设置
5:
能给我个完整的例子吗? 谢谢!

Answer 7

1.mybutton := Tbutton.create(self);   每次创建的时候设置属性
    mybutton.font.name := '宋体';
    mybutton.font.size := 9;5.multiselect 可设置多选,extendedselect 可设置按shift 或ctrl 进行多选
  procedure TForm1.Button1Click(Sender: TObject);
   var I :integer;
  begin
    listbox1.CopySelection(listbox2);
    listbox1.DeleteSelected;
  end;

Answer 8

1.
有没有一种环境设置,可以使我每次画的任何控件(如:button,label,edit...)都能默认"宋体,9"吗?
用代码设置我会
我的意思是:现在只要一画就是" Arial, 8 ",我想 像自定义代码字体字号那样的系统设置,在delphi中是不是没有???