Можете объяснить?

[Bayram_662]

Можете объяснить? это
что такое тут chkThLine. , lblExample.Font.Style

procedure TfrmFont.chkThLineClick(Sender: TObject);
begin
       if chkThLine.Checked=true then
          begin
                if lblExample.Font.Style = [] then  lblExample.Font.Style := [fsStrikeOut];
                if lblExample.Font.Style = [fsUnderline] then  lblExample.Font.Style := [fsStrikeOut,fsUnderline];

                if lblExample.Font.Style = [fsItalic] then  lblExample.Font.Style := [fsItalic,fsStrikeOut];
                if lblExample.Font.Style = [fsItalic,fsUnderline] then  lblExample.Font.Style := [fsItalic,fsUnderline,fsStrikeOut];

                if lblExample.Font.Style = [fsBold] then  lblExample.Font.Style := [fsBold,fsStrikeOut];
                if lblExample.Font.Style = [fsBold,fsUnderline] then  lblExample.Font.Style := [fsBold,fsUnderline,fsStrikeOut];

                if lblExample.Font.Style = [fsItalic,fsBold] then  lblExample.Font.Style := [fsItalic,fsBold,fsStrikeOut];
                if lblExample.Font.Style = [fsItalic,fsBold,fsUnderline] then  lblExample.Font.Style := [fsItalic,fsBold,fsUnderline,fsStrikeOut];
           end
          Else Begin

                if lblExample.Font.Style = [fsStrikeOut] then  lblExample.Font.Style := [];
                if lblExample.Font.Style = [fsStrikeOut,fsUnderline] then  lblExample.Font.Style := [fsUnderline];

                if lblExample.Font.Style = [fsItalic,fsStrikeOut] then  lblExample.Font.Style := [fsItalic];
                if lblExample.Font.Style = [fsItalic,fsStrikeOut,fsUnderline] then  lblExample.Font.Style := [fsItalic,fsUnderline];

                if lblExample.Font.Style = [fsBold,fsStrikeOut] then  lblExample.Font.Style := [fsBold];
                if lblExample.Font.Style = [fsBold,fsStrikeOut,fsUnderline] then  lblExample.Font.Style := [fsBold,fsUnderline];

                if lblExample.Font.Style = [fsItalic,fsBold,fsStrikeOut] then  lblExample.Font.Style := [fsItalic,fsBold];
                if lblExample.Font.Style = [fsItalic,fsBold,fsStrikeOut,fsUnderline] then  lblExample.Font.Style := [fsItalic,fsBold,fsUnderline];

          end;

end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Вы не знали? Почитайте правила раздела...
Модератор

[Пепел Феникса]

смена стиля шрифта да и код очень глупый.
я так полагаю что chkThLine это чекбокс(TCheckBox)...помоему второй.

procedure TfrmFont.chkThLineClick(Sender: TObject);
begin
 if chkThLine.Checked=true 
  then lblExample.Font.Style:=lblExample.Font.Style+[fsStrikeOut];
  Else lblExample.Font.Style:=lblExample.Font.Style-[fsStrikeOut];
end;

вот компактный код.
lblExample.Font.Style это стиль шрифта компонента lblExample(TLabel)