nd;

//do code completion
procedure TBufferList.CodeCompletion(const Context: IOTAKeyContext;
  KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
begin

  (Context.EditBuffer.TopView as IOTAEditActions).CodeCompletion(Byte(Context.Context));
  BindingResult := krHandled;

end;

function TBufferList.GetBindingType: TBindingType;
begin
  Result := btPartial;
end;

function TBufferList.GetDisplayName: string;
begin
  Result := sBufferList;
end;

function TBufferList.GetName: string;
begin
  Result := ''EagleKing.BufferList'';  //do not localize
end;

end.

    如果你对组件或者向导编写感兴趣，到CNPack（ http://cnpack.yeah.net ）来看看。

Pan Ying，2002.5.25
零点天地（转载请保留此链接）