Размер формы. TrackBar

[Elena13]

Большое спасибо))) все работает)))

[Elena13]

Большое спасибо))) я сделала так на увеличение, а как сделать так, чтобы он по этому же принципу уменьшался с начальной величины?

[newerow1989]

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   Form1.Width:=400-TrackBar1.Position*20;//400-начальная длина формы.//знак минус
end;

[Elena13]

У меня тоже сам добавляет. Я в 2009 работаю

[Elena13]

А, блин, логично.... Спасибо огромное)))

[isst]

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

Большое спасибо))) я сделала так на увеличение, а как сделать так, чтобы он по этому же принципу уменьшался с начальной величины?

Ну соответственно ставите начальное значение длины и высоты формы в окошке Object Inspector, а далее как правильно выше сказано, меняете знак на минус.

Можно файл удалять, который я на Я.Диск закачал? Он Вам еще нужен?

[Elena13]

Я уже скачала, можете удалять. Спасибо большое)))
Да, я сделала с минусом, все работает)))

[Elena13]

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

В итоге, вот Вам код с 3 процедурами, где в первой - только длина, во второй - только высота, а в третьей - и то и то.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    TrackBar3: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  case TrackBar1.Position of
    1: Form1.ClientWidth:= 510;
    2: Form1.ClientWidth:= 520;
    3: Form1.ClientWidth:= 530;
    4: Form1.ClientWidth:= 540;
    5: Form1.ClientWidth:= 550;
    6: Form1.ClientWidth:= 560;
    7: Form1.ClientWidth:= 570;
    8: Form1.ClientWidth:= 580;
    9: Form1.ClientWidth:= 590;
    10: Form1.ClientWidth:= 600;
  end;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  case TrackBar2.Position of
    1: Form1.ClientHeight:= 510;
    2: Form1.ClientHeight:= 520;
    3: Form1.ClientHeight:= 530;
    4: Form1.ClientHeight:= 540;
    5: Form1.ClientHeight:= 550;
    6: Form1.ClientHeight:= 560;
    7: Form1.ClientHeight:= 570;
    8: Form1.ClientHeight:= 580;
    9: Form1.ClientHeight:= 590;
    10: Form1.ClientHeight:= 600;
  end;
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
  case TrackBar3.Position of
    1: begin Form1.ClientWidth:= 510; Form1.ClientHeight:= 510; end;
    2: begin Form1.ClientWidth:= 520; Form1.ClientHeight:= 520; end;
    3: begin Form1.ClientWidth:= 530; Form1.ClientHeight:= 530; end;
    4: begin Form1.ClientWidth:= 540; Form1.ClientHeight:= 540; end;
    5: begin Form1.ClientWidth:= 550; Form1.ClientHeight:= 550; end;
    6: begin Form1.ClientWidth:= 560; Form1.ClientHeight:= 560; end;
    7: begin Form1.ClientWidth:= 570; Form1.ClientHeight:= 570; end;
    8: begin Form1.ClientWidth:= 580; Form1.ClientHeight:= 580; end;
    9: begin Form1.ClientWidth:= 590; Form1.ClientHeight:= 590; end;
    10: begin Form1.ClientWidth:= 600; Form1.ClientHeight:= 600; end;
  end;
end;

end.

Вот ссылка на исполняемый файл:
https://yadi.sk/d/3ZFfgJupdprJU

Если что непонятно, спрашивайте Удачи

А вот у меня еще такой вопрос, у меня еще одна форма есть, там нестандартная форма у окна, у нее можно как-то размер через TrackBar поменять?

[isst]

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

А вот у меня еще такой вопрос, у меня еще одна форма есть, там нестандартная форма у окна, у нее можно как-то размер через TrackBar поменять?

Что значит нестандартная форма? То есть размеры задаются с начала определенные? Я правильно понял?

[Elena13]

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

Что значит нестандартная форма? То есть размеры задаются с начала определенные? Я правильно понял?

Ну не прямоугольная, а круглая