Study Of Math Discover Studyofmath R Study Of Math T Study Of Math Study Of Math Szh Category Intermediate Subject Math Chap 2 Subject Math Exercise 2 4 Study Of Math ActiveDelphi ::xibir tópico - [Resolvido] Erro: Control '' has no parent Windows
Study Of Math Discover Studyofmath R Study Of Math T Study Of Math Study Of Math Szh Category Intermediate Subject Math Chap 2 Subject Math Exercise 2 4 Study Of Math
lucas_alves Colaborador
Registrado: Domingo, 30 de Agosto de 2009 Mensagens: 1630 Localização: São Gonçalo - Rio de Janeiro
Enviada: Qui Jan 27, 2011 4:03 pm Assunto:
O componente estava funcionando, mais depois começou a dar esse erro!
Deve ser apenas um pequeno detalhe que eu tenha mexido e está provocando esse erro toda vez que eu insiro este componente no Form!
Abraços!!! _________________ Agora eu também programo em PHP.
procedure Register;
begin
RegisterComponents('Data Controls', [TDBComboBoxIndex]);
end;
{ TDBComboBoxIndex }
constructor TDBComboBoxIndex.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetParentComponent(AOwner);
ItemIndex:=ItemDefault;
Enabled:=False;
FDataLink:=TFieldDataLink.Create;
with FDataLink do
begin
Control:=Self;
OnDataChange:=DataChange;
OnEditingChange:=EditingChange;
OnUpdateData:=UpdateData;
OnActiveChange:=ActiveChange;
end;
if (Validar) and not (csDesigning in ComponentState) and (FDataLink.Editing) and (Trim(FDataLink.Field.AsString)='') then
FDataLink.Field.AsInteger:=ItemDefault;
end;
destructor TDBComboBoxIndex.Destroy;
begin
FDataLink.Free;
FDataLink:=Nil;
inherited Destroy;
end;
function TDBComboBoxIndex.Validar: Boolean;
begin
Result:=(FDataLink<>nil) And (FDataLink.Field<>nil) and (FDataLink.Active);
end;
procedure TDBComboBoxIndex.ActiveChange(Sender: TObject);
begin
Enabled:=Validar;
if Validar then
SetItemIndex(FDataLink.Field.AsInteger);
end;
procedure TDBComboBoxIndex.DataChange(Sender: TObject);
begin
if Validar then
SetItemIndex(FDataLink.Field.AsInteger);
end;
procedure TDBComboBoxIndex.EditingChange(Sender: TObject);
begin
if (csDesigning in ComponentState) then Exit;
if (Enabled) and (FDataLink.Editing) and (Trim(FDataLink.Field.AsString)='') then
FDataLink.Field.AsInteger:=ItemDefault;
end;
procedure TDBComboBoxIndex.UpdateData(Sender: TObject);
begin
if Validar then
SetItemIndex(FDataLink.Field.AsInteger);
end;
