关于delphi 的编程 蛮急的，而且很重要！

来源：百度知道 编辑：UC知道 时间：2024/06/19 10:29:51
包括组件：Image、Label、ComboBox、Edit、Button、Panel
要求：在ComboBox中选择某一用户，输入相应秘密，点击“确定”按钮，若秘密是“123”，在Panel中显示“欢迎你进入...”，否则显示“敲错门了吧？”。主要是代码编写！
谢谢了，很需要。

实在不太明白你要做成什么样子,就照着我理解做了,错了别骂

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '123' then
Panel1.Caption := '欢迎你进入...'
else
Panel1.Caption := '敲错门了吧？';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Caption := '';
label1.Caption := '用户';
label2.Caption := '密码';
Combobox1.Clear;
Combobox1.Items.Add('7仔');
Combobox1.ItemIndex := 0;
Edit1.Text := '';
end;