Cita:
Empezado por LiAnTe-
el problema que me da con tu codigo es que cuando lo pongo me dice en el ultimo assignen propiedad no validad tipos diferentes...
|
Ok. Con el código es más sencillo ver el problema.
Cuando creas los botones añade como Owner el contenedor "Personal".
Código Delphi
[-]
...
vBotonPersonal := TSpeedButton.create(Personal);
...
Y luego para liberarlos puedes usar un código como este
Código Delphi
[-]
procedure TGesVentasBar.Button1Click(Sender: TObject);
var
i:Integer;
btn:TSpeedButton;
begin
for i := (Personal.ComponentCount - 1) downto 0 do begin
if (Personal.Components[i] is TSpeedButton) then begin
btn := TSpeedButton(Personal.Components[i]);
btn.Free;
end;
end;
end;