문지영 wrote:

> 안녕하세요.

> 델 초보자인데 궁금한게 있어서 이렇게 글 씁니다.

> 제가 알고싶은것은 콤보박스에(인트넷 사이트 주소 적는)주소를 저장하고 삭제하고 싶습니다.

> 그런데 잘 안돼는 군요.

> 여러 고수님들 많은 도움 부탁드립니다.





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

ComboBox1: TComboBox;

Edit1: TEdit;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation





{$R *.DFM}



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then

begin

if (Combobox1.Items.count > 2) then

begin

with Combobox1 do

begin

Items.Delete(0);

Items.Add(Edit1.Text);

ItemIndex := 0;

end;

end

else if (Combobox1.Items.count <=3 ) then

begin

Combobox1.Items.Add(Edit1.Text);

Combobox1.ItemIndex := 0;

end;

KEY := #0;

end;

end;



end.