Связка TrackBar с Label. Проблема с кодом.

[Murlokotan61]

На форме два TrackBar, 1 и 2. Соответсвено им, два Label, 1 и 2. Как вычислить произведение чисел, отобразившихся в зависимости от положений бегунков и результат "выдать" в Label3 (тоже уже стоит на форме)? Числа должны быть отображены именно, как в Label, StaticText, но не как в Edit?

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

если верно понял то Label3.Caption:=IntToStr(TrackBar1. Position*TrackBar2.Position)

[Murlokotan61]

Уважаемый "Пепел...", спасибо за отзыв, но не прошло, хотя предложенный вариант я не применял. Я пытался "плясать" от значений Label-ов. Хотя весь код скомпиллировался без проблем.

[havok]

а если я верно понял то так:

procedure TForm1.FormCreate(Sender: TObject);
begin
lbl1.Caption:=IntToStr(trckbr1.position);
lbl2.Caption:=IntToStr(trckbr2.position);
lbl3.Caption:=IntToStr(trckbr1.position*trckbr2.position);
end;

procedure TForm1.trckbr1Change(Sender: TObject);
begin
lbl1.Caption:=IntToStr(trckbr1.position);
lbl3.Caption:=IntToStr(trckbr1.position*trckbr2.position);
end;

procedure TForm1.trckbr2Change(Sender: TObject);
begin
lbl2.Caption:=IntToStr(trckbr2.position);
lbl3.Caption:=IntToStr(trckbr1.position*trckbr2.position);
end;

[Murlokotan61]

havok, c ShowMessage пошло прекрасно, спасибо. Как сделать с Labe3, дойду сам.

Здравствуйте, уважаемые программисты! Прошу помощь. :wall: Создаю программу, которая: 1. вычисляет произведение целых чисел; 2. находит квадрат произвольного числа. На форму нанесены: два TrackBar, соответственно им две Lbl_(1,2), GroupBox с надписью 'Произведение', содержащий Label4 для отображения результата, CheckBox для переключения на вычисление квадрата числа на основании положения бегунка, и обратно, на произведение. При этом изменяется надпись у GroupBox на 'Квадрат'. Привожу код того, что сделано, все работает. Проблема одна: текст процедуры, которая вычисляет квадрат числа на основании Position бегунка и выводит найденное значение в GroupBox.Label4.

unit Zadacha_pas;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons,
  ComCtrls;
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Lbl_1: TLabel;
    Lbl_2: TLabel;
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    procedure BitBtn1Click(Sender:TObject);
    procedure TrackBar1Change(Sender:TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Lbl_1:Integer;    Lbl_2:Integer;       Label4:String;
  GroupBox1:TGroupBox;
  CheckBox1:TCheckBox;
implementation
{$R *.dfm}
 procedureTForm1.FormCreate(Sender: TObject);
begin
GroupBox1.Caption:='Произведение';
Lbl_1.Caption:=IntToStr(TrackBar1.Position);
Lbl_2.Caption:=IntToStr(TrackBar2.Position);
Label4.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
 begin
 Lbl_1.Caption:=IntToStr(TrackBar1.Position);
 Label4.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);
 end
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Lbl_2.Caption:=IntToStr(TrackBar2.Position);
Label4.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
 begin
   case CheckBox1.State of
        cbChecked:GroupBox1.Caption:='Квадрат';
       else
        GroupBox1.Caption:='Произведение';
   end;
 end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Close;
end;
end.

[mihali4]

А чем отличается произведение чисел от квадрата числа?
Или начнем с азов арифметики?

[Murlokotan61]

Сообщение от mihali4

А чем отличается произведение чисел от квадрата числа?
Или начнем с азов арифметики?

Если числа одинаковые, то ничем, к примеру 35 и35. В произведении же может быть 35 и, к примеру, 30, и каждое из них устанавливается своим TrackBar. В случае же вычисления квадрата возникает необходимость синхронной работы TrackBar1 и TrackBar2, независимо от того, какой бегунок подвергается воздействию. А вообще, этот вопрос задать бы тем, кто дает такие "мертворожденные" задания. С уважением, Сергей.

[mihali4]

Сообщение от Murlokotan61

...возникает необходимость синхронной работы TrackBar1 и TrackBar2, независимо от того, какой бегунок подвергается воздействию...

Вот на основе этой ключевой фразы и вопрос прозвучал бы гораздо конкретнее.
Этот вопрос недавно поднимался.
Форум - перед вами.
Осталось приложить (самому!) небольшие усилия и найти интересующую тему.

[Murlokotan61]

Большое спасибо всем, кто откликнулся. Помощь уже не требуется, решил самостоятельно. Привожу фрагмент решения (для возможных будущих поколений):

procedure TForm1.CheckBox1Click(Sender: TObject);
 begin
  if CheckBox1.Checked then
     TrackBar2.Position:=TrackBar1.Position;
     Lbl_1.Caption:=IntToStr(TrackBar1.Position);
     Lbl_2.Caption:=IntToStr(TrackBar1.Position);
     Label4.Caption:=IntToStr(sqr(TrackBar1.Position));
   case CheckBox1.State of
        cbChecked:GroupBox1.Caption:='Квадрат';
   else
        GroupBox1.Caption:='Произведение';
        Lbl_2.Caption:=IntToStr(TrackBar2.Position);
        Label4.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);
   end;
 end;

Оформить код тэгом - на радостях забыли?