D dearchen Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-28 #1 我在TPanel上动态显示了一个TEdit控件，怎样在当我输入了一些字后敲击回车键后删除这 个TEDIT控件？
康 康夫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-28 #2 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.Free; end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.Free; end;
K kang_en Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-28 #3 如果以后还想显示，可用： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.visible:=false; end; 需要的话，可再用 edit1.visible:=true 显示出来！
如果以后还想显示，可用： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.visible:=false; end; 需要的话，可再用 edit1.visible:=true 显示出来！
2 212 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-28 #4 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.visible=false; end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.visible=false; end;
