肯请各为高手帮助我

Question

在过程中定义的组件是不是没有初始化？
可能可以这样：Label1:=TLabel.Create;

Answer 1

请问该怎么创建对象，这是我学习delphi的第五天，有很多东西我不懂。能不能写的清楚一些。只要您帮助我解决这个问题，那我所有的分都您。

Answer 2

按照你的意思，是不是可以这样呢？
procedure TForm1.ComboBox1Change(Sender: TObject);
 begin
    if ComboBox1.Text = 'look' then Label1.Caption := '欢迎您';
   //先在要显示信息的地方放置一个label，caption的初值为空；
end；

Answer 3

可能我没说清楚，我是想用调用自定义函数的方法，显示“欢迎您”
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    这个位置应该是一个自定义函数（过程）。
end；

Answer 4

procedure kkk;var
    ComboBox1: TComboBox;
    Label1: TLabel;begin
  if ComboBox1.Text = 'look' then Label1.Caption := '欢迎您';
end;
procedure TForm1.ComboBox1Change(Sender: TObject);begin
    kkk;
end；
这一部分很有点么名奇妙；窗体上有一个叫ComboBox1的，在KKK过程中的ComboBox1是什么意
思？你想动态加一个TComboBox还是就判断窗体上的ComboBox1

Answer 5

procedure kkk;
begin
  if Form1.ComboBox1.Text = 'look' then Form1.Label1.Caption := '欢迎您';
end;

Answer 6

建议：
procedure kkk;var
    Label1: TLabel;
begin
  Label1:=TLabel.Create; 
  Label1.parent:=Form1;
  //设置Label1的属性（你需要）
  if ComboBox1.Text = 'look' then Label1.Caption := '欢迎您';
end;

Answer 7

将 
if ListBox1.Items[ListBox1.ItemIndex] = 'look' Then ComboBox1.Text := '欢迎您';
改为
  if ListBox1.Items.Strings[listBox1.itemindex] = 'look then
    ComboBox1.text:= '欢迎您';

Answer 8

procedure kkk;
begin
  if ComboBox1.Text = 'look' then Label1.Caption := '欢迎您';
end;procedure TForm1.ComboBox1Change(Sender: TObject);begin
    kkk;
end；procedure TForm1.ListBox1Click(Sender: TObject);begin
  if ListBox1.Items.Strings[ListBox1.ItemIndex] = 'look' Then ComboBox1.Text := '欢迎您';
end;    

Answer 9

问题已经解决，非常感谢liang_z(千山一刀之忍者神龟)，我要把分全给他。