삭제를 위한 암호를 넣어 주세요

procedure TForm2.Button1Click(Sender: TObject);
var
    i: Integer;
begin
    if  Pos('100', Panel5.Caption) <= 0 then
        Exit;

    for i := 0 to ComponentCount - 1 do
    begin
        if Components[i] is TPanel then
        begin
            TPanel(Components[i]).ParentBackground := False;
            TPanel(Components[i]).Color := clRed;
        end;
    end;
end; 
2018-12-13 오전 10:26:36

삭제를 위한 암호를 넣어 주세요

아 이런방법이 ^^ 감사합니다^^ 
2018-12-13 오전 10:27:05