如何实现VB/Delphi式提示！？(200分)

myhxg · 2003-08-09

怎么样才能实现如VB/DELPHi那样的点提示，就是输入对象名加点时出现的那个属性提示！？谁会吗！？

ZRWeng · 2003-08-09

你要做编辑器吗？

52free · 2003-08-09

像那种基于编译器的提示看来不容易 但象vb那种基于库的提示还是可能的，就是判断.前的词汇 再从数据库中找出相关项 用个列表来显示 实际上可能也没那么简单，只是我想得简单了点

爱元元的哥哥 · 2003-08-09

这个算法蛮复杂的，VC的提示相对于Delphi就慢很多

wr960204 · 2003-08-11

VB的很简单,建立一个库.把所有的的都列出来 而Delphi会自动匹配类型,不匹配的会自动去掉.

DragonPC_??? · 2003-08-11

这个问题建立在对 dcu 文件的分析上面，这是不会轻易提供的，如果你希望建立一个针对 Code Insight 技术的 Experts ，可以通过实现 IOTACodeInsightManager 接口来实现一些 设置或者增强， 如果你希望建立自己的Code Insight，可以使用 SynEdit 控件包，它已经将这个功能封装 好了控件， http://synedit.sourceforge.net ............................... interface   var MyCodeInsightManagerIndex: Integer; // Don't like global variables   // but here it's necessary implementation ............................... type   MyCodeInsightManager = class(TNotifierObject, IOTACodeInsightManager)   public     procedure AllowCodeInsight(var Allow: Boolean; const Key: Char);     procedure Done(Accepted: Boolean; out DisplayParams: Boolean);     function EditorTokenValidChars(PreValidating: Boolean): TSysCharSet;     procedure GetCodeInsightType(AChar: Char; AElement: Integer;       out CodeInsightType: TOTACodeInsightType; out InvokeType: TOTAInvokeType);     function GetEnabled: Boolean;     function GetHintText(HintLine, HintCol: Integer): string;     function GetIDStrings: string;     function GetLongestItem: string;     function GetMultiSelect: Boolean;     function GetName: string;     procedure GetParameterList(out ParameterList:IOTACodeInsightParameterList);     procedure GetSymbolList(out SymbolList:IOTACodeInsightSymbolList);     function GotoDefinition(out AFileName: string; out ALineNum:Integer;       Index: Integer = -1): Boolean;     function HandlesFile(const AFileName: string): Boolean;     function InvokeCodeCompletion(HowInvoked: TOTAInvokeType; var Str:string):       Boolean;     function InvokeParameterCodeInsight(HowInvoked: TOTAInvokeType;       var SelectedIndex: Integer): Boolean;     function IsViewerBrowsable(Index: Integer): Boolean;     procedure OnEditorKey(Key: Char; var CloseViewer: Boolean; var Accept:Boolean);     procedure ParameterCodeInsightAnchorPos(var EdPos: TOTAEditPos);     function ParameterCodeInsightParamIndex(EdPos: TOTAEditPos): Integer;     function PreValidateCodeInsight(const Str: string): Boolean;     procedure SetEnabled(Value: Boolean);   end; { MyCodeInsightManager } procedure MyCodeInsightManager.AllowCodeInsight(var Allow: Boolean;   const Key: Char); begin // I would like to activate my code completion manager when the user // presses the ' button   if Key = #39 then // It's the quote symbol     Allow := True   else     Allow := False; end; procedure MyCodeInsightManager.Done(Accepted: Boolean;   out DisplayParams: Boolean); begin   if Accepted then   begin     // Here I should insert the text in the Editor   end; end; function MyCodeInsightManager.EditorTokenValidChars(   PreValidating: Boolean): TSysCharSet; begin // I don't really understand what this function must return. // I return the quote symbol here because I would like to activate // my manager when the user presses the ' button, but I am not sure // whether this is correct   Result := ['''']; end; procedure MyCodeInsightManager.GetCodeInsightType(AChar: Char;   AElement: Integer; out CodeInsightType: TOTACodeInsightType;   out InvokeType: TOTAInvokeType); begin   CodeInsightType := citCodeInsight; // I want to perform code completion   InvokeType := itAuto; //???????????????????????????????????? end; function MyCodeInsightManager.GetEnabled: Boolean; begin   Result := True; end; function MyCodeInsightManager.GetHintText(HintLine,   HintCol: Integer): string; begin   Result := ''; // I return an empty string here because I don't want   // my manager to perform tooltip help end; function MyCodeInsightManager.GetIDString: string; begin   Result := 'MyCompany.Code.Completion.Manager'; end; function MyCodeInsightManager.GetLongestItem: string; begin   Result := 'AAAAAAAAAAAAAAAAAAAAAAAAAA'; end; function MyCodeInsightManager.GetMultiSelect: Boolean; begin   Result := False; // I don't want to let the user select multiple   // items in the code completion viewer end; function MyCodeInsightManager.GetName: string; begin   Result := 'Code Completion Manager'; end; procedure MyCodeInsightManager.GetParameterList(   out ParameterList: IOTACodeInsightParameterList); begin   ParameterList := nil; // I don't want my manager to perform function   //parameter insight, so I return nil here. end; procedure MyCodeInsightManager.GetSymbolList(   out SymbolList: IOTACodeInsightSymbolList); begin   SymbolList := TMySymbolList.Create;   // Suppose here I should return an instance to a class that   // implements IOTACodeInsightSymbolList interface or maybe   // I am wrong? end; function MyCodeInsightManager.GotoDefinition(out AFileName: string;   out ALineNum: Integer; Index: Integer): Boolean; begin   AFileName := '';   ALineNum := 0;   Result := True;   // I don't want to use symbol browsing in my manager end; function MyCodeInsightManager.HandlesFile(   const AFileName: string): Boolean; begin   if ExtractFileExt(AFileName) = '.pas' then     Result := True   else     Result := False; end; function MyCodeInsightManager.InvokeCodeCompletion(   HowInvoked: TOTAInvokeType; var Str: string): Boolean; begin   Result := True;   // What should I do with the HowInvoked and Str variables? end; function MyCodeInsightManager.InvokeParameterCodeInsight(   HowInvoked: TOTAInvokeType; var SelectedIndex: Integer): Boolean; begin   Result := False; // No Parameter Insight in my manager end; function MyCodeInsightManager.IsViewerBrowsable(Index: Integer): Boolean; begin   Result := True; // I want all the symbols in the code completion viewer   // to be browsable end; procedure MyCodeInsightManager.OnEditorKey(Key: Char; var CloseViewer,   Accept: Boolean); begin   if Key = #13 then // Carriage return   begin     Accept := True; // Accept the symbol that is currently selected     CloseViewer := True;   end;   if Key = #27 then // ESC key   begin     Accept := False; // Do not accept the symbol     CloseViewer := True;   end; end; procedure MyCodeInsightManager.ParameterCodeInsightAnchorPos(   var EdPos: TOTAEditPos); begin // Don't want Parameter Insight Tooltip window in my manager end; function MyCodeInsightManager.ParameterCodeInsightParamIndex(   EdPos: TOTAEditPos): Integer; begin // I have no idea what to do with this function end; function MyCodeInsightManager.PreValidateCodeInsight(   const Str: string): Boolean; begin   Result := True; // Not quite sure about this. Maybe I should   // make some filters using the Str variable before returning end; procedure MyCodeInsightManager.SetEnabled(Value: Boolean); begin   // I don't have this property in my implementation end; ............................... initialization   MyCodeInsightManagerIndex := (BorlandIDEServices as     IOTACodeInsightServices).AddCodeInsightManager(MyCodeInsightManager.Create); finalization   (BorlandIDEServices as     IOTACodeInsightServices).RemoveCodeInsightManager(       MyCodeInsightManagerIndex); end. ------------------------------------------------------------------

如何实现VB/Delphi式提示！？(200分)

myhxg

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

Similar threads