不完全输入

(*// 标题:不完全输入
说明:Edit、ComboBox自动匹配输入字符;正好弥补Delphi6.0不支持中文不完全输入
设计:Zswang
日期:2002-01-26
支持:wjhu111@21cn.com
//*)
///////Begin Source
function EditComplete(mEdit: TEdit; mItems: TStrings;
mCase: Boolean = True): Boolean;
var
I, T: Integer;
vSubStr, S: string;
begin
Result := False;
if (not Assigned(mEdit)) or (not Assigned(mItems)) then Exit;
vSubStr := mEdit.Text;
if not mCase then vSubStr := UpperCase(vSubStr);
for I := 0 to Pred(mItems.Count) do begin
S := mItems;
if not mCase then S := UpperCase(S);
if (Pos(vSubStr, S) = 1) and (vSubStr <> S) then begin
T := Length(vSubStr);
mEdit.Text := mItems;
mEdit.SelStart := T;
mEdit.SelLength := Length(mItems) - T;
Result := True;
Break;
end;
end;
end; { EditComplete }
function ComboBoxComplete(mComboBox: TComboBox; mCase: Boolean = True): Boolean;
var
I, T: Integer;
vSubStr, S: string;
begin
Result := False;
if not Assigned(mComboBox) then Exit;
vSubStr := mComboBox.Text;
if not mCase then vSubStr := UpperCase(vSubStr);
for I := 0 to Pred(mComboBox.Items.Count) do begin
S := mComboBox.Items;
if not mCase then S := UpperCase(S);
if (Pos(vSubStr, S) = 1) and (vSubStr <> S) then begin
T := Length(vSubStr);
mComboBox.Text := mComboBox.Items;
mComboBox.SelStart := T;
mComboBox.SelLength := Length(mComboBox.Items) - T;
Result := True;
Break;
end;
end;
end; { EditComplete }
///////End Source
///////Begin Demo
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_BACK, VK_DELETE, VK_LEFT, VK_RIGHT, VK_DOWN, VK_UP:
else EditComplete(TEdit(Sender), Memo1.Lines, False);
end;
end;
procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_BACK, VK_DELETE, VK_LEFT, VK_RIGHT, VK_DOWN, VK_UP:
else ComboBoxComplete(TComboBox(Sender), False);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.AutoComplete := False; //for Delphi6.0
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
ComboBox1.Items.Text := TMemo(Sender).Text;
end;
///////End Demo