Hola, Es la primera vez que intento hacer un componente visual heredando de un TDBCombobox... el componente se compila, se instala, lo uso, pero no logro hacer que el mismo se cargue inicialmente... ya he probado hacer override de varios procedures (create, UpdateData, etc) sigue sin funcionar...
Por favor si alguien me tira una pista. Aca est� el fuente.
Gracias
unit DBComboDic;
{$mode objfpc}{$H+}
interfaceuses
Classes, SysUtils, LResources, Forms, Controls, Graphics,
Dialogs, DBCtrls, sqldb, StdCtrls, ibconnection;type
TDBComboDic = class(TDBComboBox)
private
FCDTabla: string;
FCDCampo_clave: string;
FCDCampo_descr: string;
FCDconn: TIBConnection;
FCDMostrar_descr: TEdit;
CDDescrip: TStringList;
protected
procedure Change; override;
procedure UpdateData(Sender: TObject); virtual;
public
published
property CDconn: TIBConnection Read FCDconn Write FCDconn;
property CDTabla: string Read FCDTabla Write FCDTabla;
property CDCampo_clave: string Read FCDCampo_clave Write FCDCampo_clave;
property CDCampo_descr: string Read FCDCampo_descr Write FCDCampo_descr;
property CDMostrar_descr: TEdit Read FCDMostrar_descr Write
FCDMostrar_descr;
end;
procedure Register;
implementation
procedure TDBComboDic.UpdateData(Sender: TObject);
var
dst: TSQLQuery;
begin
inherited;
dst := TSQLQuery.Create(nil);
if FCDconn nil then
dst.database := FCDconn;
if CDconn nil then
dst.database := CDconn;
if dst.DataBase nil then
begin
dst.sql.Clear;
dst.sql.Text := 'select ' + CDcampo_clave + ', ' + CDcampo_descr +
' from ' + CDtabla;
dst.Open;
while not dst.EOF do
begin
items.add(dst.FieldByName(CDcampo_clave).AsString);
CDDescrip.add(dst.FieldByName(CDcampo_clave).AsString+'='+
dst.FieldByName(CDcampo_descr).AsString);
end;
end;
dst.Free;
end;
procedure TDBComboDic.Change;
begin
if CDMostrar_descr nil then
CDMostrar_descr.Text :=
CDDescrip.values[dst.FieldByName(CDcampo_clave).AsString];
end;
procedure Register;
begin
RegisterComponents('Data Controls', [TDBComboDic]);
end;end.
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091120/0a1a4514/attachment-0001.html>