Crear un Objeto dentro de un Panel

[sancarlos]

Caro Mira :

type
myarray= array of string ;
var
A:myarray;
tMyBoton: Tedit;
firstrow,secondrow, i : integer;
nameofport:string;
begin

setlength (A,200);

adoports.Close;
adoports.SQL.Clear;
adoports.SQL.Add('select * from ts.tcpports where active='+chr(39)+'T'+chr(39)+'');
adoports.Prepared;
adoports.Open;

firstrow:=0;
secondrow:=0;
i:=0;
while not adoports.Eof do begin

try
tMyBoton := Tedit.create(self);

finally

tmyboton.Name:='s'+adoportsportnumber.AsString+'s';//new
tMyBoton.Parent := MyPanel;
if firstrow <= 600 then begin
firstrow := firstrow + 30;
tMyBoton.left := firstrow;
tMyBoton.Top := 2;
end ;

if (firstrow>600 ) and (firstrow <= 1200) then begin
secondrow := secondrow + 30;
tMyBoton.left := secondrow;
tMyBoton.Top := 30 ;
end ;

tMyBoton.Width := 25;
tMyboton.height := 25;
tMyBoton.visible := true;
tMyBoton.OnClick := self.MyClick;
tMyBoton.tag := 1 ;

if adoportsstatus.AsInteger = 0 then begin
tMyboton.ShowHint:=true;
tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString;
tMyBoton.Color:=clred;
tMyBoton.font.Color:=clwhite;
tMyBoton.Cursor:=crHandPoint;
tMyBoton.ReadOnly:=true;
tMyBoton.BorderStyle:=bsnone;
tMyBoton.PopupMenu:=menuports;
end ;

if adoportsstatus.AsInteger = 1 then begin

tMyboton.ShowHint:=true;
tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString;
tMyBoton.Color:=clgreen;
tMyBoton.font.Color:=clwhite;
tMyBoton.Cursor:=crDrag;
tMyBoton.ReadOnly:=true;
tMyBoton.BorderStyle:=bsnone;
tMyBoton.PopupMenu:=menuports;

end ;
// i:=i+1;
A[i]:='s'+adoportsportnumber.AsString+'s' ;
inc(i);
tMyBoton.Text :=adoportsportnumber.AsString;
end;
adoports.Next;
end;

for i := low(A) to high(A) do
begin
listbox1.Items.Add(A[i]);

end;

Este Codigo me Sirve de maravilla , crea los edit , y guardo en un array los nombre de los edit que estan compuestos por el nombre del campo de la tabla y una s al principio y al final.

Todo Bien , pero el asunto es que debo estar refrescando , y pues tengo este otro proceso.

var

scrollbox:tscrollbox;
tMyBoton: Tedit;
firstrow,secondrow, i : integer;
nameofport:string;
begin

mypanel.destroy;

scrollbox := Tscrollbox.create(self);
scrollbox.Parent := frmenu;
scrollbox.Name := 'mypanel';
scrollbox.Width := 664;
scrollbox.Height := 155;
scrollbox.Left :=8;
scrollbox.Top :=426;
scrollbox.BorderStyle :=bsnone;
scrollbox.Enabled:=true;
scrollbox.Visible:=true;

adoports.Close;
adoports.SQL.Clear;
adoports.SQL.Add('select * from ts.tcpports where active='+chr(39)+'T'+chr(39)+'');
adoports.Prepared;
adoports.Open;

i:=adoports.RecordCount;

firstrow:=0;
secondrow:=0;

while not adoports.Eof do begin
try





tMyBoton := Tedit.create(self);
finally

tMyBoton.Parent := mypanel;
if firstrow <= 600 then begin
firstrow := firstrow + 30;
tMyBoton.left := firstrow;
tMyBoton.Top := 2;
end ;

if (firstrow>600 ) and (firstrow <= 1200) then begin
secondrow := secondrow + 30;
tMyBoton.left := secondrow;
tMyBoton.Top := 30 ;
end ;

tMyBoton.Width := 25;
tMyboton.height := 25;
tMyBoton.visible := true;
tMyBoton.OnClick := self.MyClick;
tMyBoton.tag := 1 ;

if adoportsstatus.AsInteger = 0 then begin

tMyboton.ShowHint:=true;
tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString;
tMyBoton.Color:=clred;
tMyBoton.font.Color:=clwhite;
tMyBoton.Cursor:=crHandPoint;
tMyBoton.ReadOnly:=true;
tMyBoton.BorderStyle:=bsnone;
tMyBoton.PopupMenu:=menuports;

end ;

if adoportsstatus.AsInteger = 1 then begin

tMyboton.ShowHint:=true;
tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString;
tMyBoton.Color:=clgreen;
tMyBoton.font.Color:=clwhite;
tMyBoton.Cursor:=crDrag;
tMyBoton.ReadOnly:=true;
tMyBoton.BorderStyle:=bsnone;
tMyBoton.PopupMenu:=menuports;

end ;


tMyBoton.Text :=adoportsportnumber.AsString;
end;
adoports.Next;
end;

Que lo mismo solo que destruye todo y vuelve a crear .

Pero lo que necesito es destruir solo los edit que ya no vienen en sql, no todos , por que a cada uno tiene algun proceso vivo en la aplicacion .....como por ejemplo un popumenu .

Pense en meter todo en un arreglo
Compara y eso va bien.... pero como destruyo solo los edit que no necesito...


Gracias... un poco largo , pero asi me explico mejor....