Criando um Componente Delphi que cria Edit e Label
Boa Tade, Estou com uma Dificulade, quero criar um componente para efetuar filtro de dados,
È inserido um DataSource, e o usuário coloca quais campos ele quer filtrar, e o componente cria os Edits para o filtro.
O código acima, cria o campos certos, mais quando executo eles somem.
alguem pode me ajudar?
Obrigado pela força
È inserido um DataSource, e o usuário coloca quais campos ele quer filtrar, e o componente cria os Edits para o filtro.
with TStaticText.Create(Self) do
begin
Parent := Self;
AutoSize := false;
BevelKind := bkSoft;
Top := 0;
if QtdeCampos > 0 then
Top := QtdeCampos * 20;
Left := 0;
Caption := texto;
height:=20;
Width := tamanhoLabel;
end;
with TEdit.Create(Self) do
begin
Parent := Self;
Top := 0;
if QtdeCampos > 0 then
Top := QtdeCampos * 20;
Left := tamanhoLabel;
SetSubComponent(true);
end;
QtdeCampos := QtdeCampos+1;
O código acima, cria o campos certos, mais quando executo eles somem.
alguem pode me ajudar?
Obrigado pela força
Arthur Bergamo
Curtidas 0