ocx控件开发 Delphi 开发数据库控件的方法[3]

Delphi 开发数据库控件的方法[3]  

　　procedure Register;　　implementation　　procedure Register;　　begin　　RegisterComponents(`Samples` [TDBFieldComboBox]);　　end;　　constructor TDBFieldComboBox create(Aowner:Tponent);　　var I j:integer;　　begin　　 inherited Create(Aowner);　　 FDataLink:=TFieldDataLink Create ;　　 ondropdown:=dropdown;　　 text:=``;　　end;　　destructor TDBFieldComboBox Destroy;　　begin　　 FDataLink Free ;　　 inherited Destroy;　　end;　　function TListBox GetField:string;　　var　　 I j:integer;　　begin　　j:=FDataLink DataSource DataSet FieldCount ;　　 for I := to j－ do　　 begin　　 if FDataLink DataSource DataSet Fields[I] Displayname=text then　　 begin　　 Result:=FDataLink DataSource DataSet Fields[I] FieldName;　　 exit;　　 end;　　 end;　　end;　　procedure TDBFieldComboBox SetDataSource ( Value:TDataSource);　　begin　　 FDataLink DataSource :=value;　　end;　　function TDBFieldComboBox GetDataSource :TDataSource;　　begin　　 Result:=FDataLink DataSource ;　　end;　　procedure TDBFieldComboBox StartDrag(Sender: Tobject; var DragObject: TDragObject);　　begin　　end;　　procedure TDBFieldComboBox DropDown(Sender: Tobject);　　 var　　 I j:integer;　　begin　　 j:= ;　　 j:=FDataLink DataSource DataSet FieldCount;　　 I:= ;　　 repeat　　 items Add (FDataLink DataSet Fields[I] DisplayName );// FieldName);　　 I:=I＋ ;　　 until I>j－ ;　　end;　　end lishixinzhi/Article/program/Delphi/201311/8534