[vmilyoshin]

Сообщение от Amgsys HQ

Код при нажатии на кнопку:

Код:

procedure TMyForm.ButtonClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TLabel then
      if TLabel(Components[i]).Font.Color = clRed then
      begin
        TLabel(Components[i]).Font.Color := clBlack;
        TLabel(Components[i]).Top := TLabel(Components[i]).Top + 1;
      end;
end;

Спасибо БОЛЬШОЕ. Ещё один вопросик. На форме есть компонент Image отображающий бланк документа формата А4. Я хочу сделать чтобы при выводе на печать Image.Enable:= false; и остались бы одни Labelы. Но при Form.Print; печатается только видимая часть формы. На каком компоненте можно разместить Labelы, чтобы печатался весь документ.