Databasede bulunan resimleri ScrollBoxsa Create ediyorum. aradan herhangi bir resmi sildiğimde, resimleri yeniden ScrollBoxsa Create yapmam gerek fakat Create edilen TImageleri ScrollBoxdan bir türlü temizleyemiyorum bu konuda yardımlarınızı rica ederim.
Kod: Tümünü seç
while Not Eof do
begin
With TImage.Create(Nil) do
begin
Bitmap.LoadFromFile(FieldByName('KUCUK').AsString);
OnClick := ImageOrtakClick;
Cursor := crHandPoint;
Tag := FieldByName('ID').AsInteger;
Align := TAlignLayout.Top;
Margins.Top := 1;
Margins.Bottom := 0;
Margins.Left := 1;
Margins.Right := 1;
Parent := ScrollBoxImageList;
Next;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := ScrollBox1.ComponentCount - 1 downto 0 do
if ScrollBox1.Components[i] is TImage then
TImage(ScrollBox1.Components[i]).Free;
end;