Emma

Добрый день! Тут задумалась над вопросом, даже не знаю, как описать... Попробую так: возможно ли, дочернюю форму VCL проекта, в значительной степени облегчить? Так как она, переназначена для того, чтобы график показывался в отдельном окне, а вся работа с графиком, идет из основной формы. Показ в дочернем окне, позволяет поставить Align:=client и не занимет место на основной форме, там лишь ссылка на график. 

спасибо робит
 

7 часов назад, Олег Киреев сказал:

Здравствуйте Emma.

По опыту лучше поместить компонент TChart на форму. Сразу настроить как надо. Там куча настроек. Думаю дело там. Сделать невидимым. А потом на кнопке Vasible Graphic делать видимым.

С Уважением.

 

как вертикальную ось подписать?

Проблема решена. метод Series.AddXY(strtofloat(Edit1.Text),strtofloat(Edit2.Text));  а не Series.AddX(strtofloat(Edit1.Text),strtofloat(Edit2.Text)); Series.AddY(strtofloat(Edit1.Text),strtofloat(Edit2.Text));

1 час назад, Олег Киреев сказал:

Здравствуйте Emma.

По опыту лучше поместить компонент TChart на форму. Сразу настроить как надо. Там куча настроек. Думаю дело там. Сделать невидимым. А потом на кнопке Vasible Graphic делать видимым.

С Уважением.

 

Формы две:  одна основная вторая дочерняя на дочерней компонет TChart задача понажатию кноки добавлять точки из эдитов. Из эдит 1 добавлять по х из эдит 2 по Y. Видимой делаеться только форма на которой расположен   TChart.  Сам TChart своей видимости не меняет.

кнопка Series create создает серию, а Addpointgraphic добавляет из эдитов точки в серию. те нужно нажать 

1.Series create

2.Addpointgraphic

иначе стработает не верно

кнопка AddPoint задает серию из 4-х расчитанных значений потму 

началанужнорачить зачения 

тогда порядок нажатия измениться

1.K1calculete

2.Series create

3.AddPoint

4.Addpointgraphic

Ошибка была змечена при постороении рачситанной серии.

Кроме того, что положено, добавляет свои значения как избавиться от этого

Спасибо!

Добрый день! Раньше, просто ставила за форму компонент, форма удлинялась, при Autoscroll :=true. Сейчас такого нет.   Пытаюсь создать форму, как вердовский файл, которую можно скролить. Как сделать, чтобы можно было выставить компоненты, за размерами формы, а потом просто скролить форму по длине. 

Проблема решена, указатель, показывал не в ту степь:

проблема была не в инициалиазации, а в модуле uses первой формы, где содержалось указание на старое название.

1 час назад, Tumaso сказал:

Для начала нужно исправить ошибку с отсутствием модуля Unit2. Тут либо указан неправильный путь к этому модулю, либо модуль переименован, либо вообще отсутствует.

вот инициализация модуля 2

program al;

uses
  System.StartUpCopy,
  FMX.Forms,
  Userlarmforn in 'Userlarmforn.pas' {Form1},
  other in 'other.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

он выделяет вот эту строку
 other in 'other.pas' {Form2};

Как возможно исправить

Добрый вечер! Неполучаеться создать динамически обект series Пробовала так:

Var MySeries : TLineSeries ;

MySeries := TLineSeries.Create( Self );

MySeries.ParentChart := Chart1 ;

Когдаделаю так то первый момент работает после сохрания
 

unit other;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMXTee.Engine,
  FMXTee.Procs, FMXTee.Chart, FMX.Edit, FMX.StdCtrls, FMX.Controls.Presentation,
  FMXTee.Series;
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Chart1: TChart;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

   H,n,f:integer;
   Series:TLineSeries;
implementation

{$R *.fmx}

procedure TForm2.Button1Click(Sender: TObject);
begin
H:=H+1;
 n:=strtoint(edit1.Text);
F:=System.Random(n);
label1.Text:=inttostr(F);
randomize;

  Series.AddX(H);
 Series.AddY(F);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Series:=TLineSeries.Create(self);
    Series.Name:='Series1';

    Series.ParentChart:=Chart1;
    Series.Title:='Line';
    Chart1.View3D:=false
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  Chart1.ClearChart;
end;

end.

ошибка которю выдает:
[dcc32 Fatal Error] al.dpr(7): F2613 Unit 'Unit2' not found.
  al.dpr(7): Unit 'Unit2' is used by 'Userlarmforn'

и показывает на инициализацию формы