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

[Elena13]

Здравствуйте, помогите пожалуйста!
Подскажите, как изменить размер формы через TrackBar?

[isst]

Возможно это поможет:

http://delphi-prg.ru/komponent-trackbar
http://www.cyberforum.ru/delphi-begi...ead657211.html
http://www.programmersforum.ru/showthread.php?t=118186

И вот это еще (!) http://forum.sources.ru/index.php?showtopic=48872

[Elena13]

Не очень(( была уже там((

[isst]

Я тут сам покопался, сделал для примера изменение длины формы. Вот у меня начальная длина например 700, 10 позиций трекбара (свойство Position), и вот как можно изменить длину формы в ходе изменения положения трекбара:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(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;

end.

Соответственно высоту формы можно поменять, изменяя через Case свойство Form1.ClientHeight в процедуре OnClick в другом (втором трекбаре). Если вам надо сразу оба св-ва изменять пропорционально, то можно в первую процедуру встроить таковое в Case. Как-то так, я думаю. У меня так работает. Понятно пока, что я говорю?

[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

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

[NetSpace]

а можно просто так сделать:

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

аналогично можно и для высоты формы сделать. да и калибровку нужно только один раз задать - 20. а не каждый раз новое значение прописывать: 500, 520, 540 и т.д.
//--------------------------------------------------
разрешите спросить, а вот это как он вам пишет: сам Delphi или вы для себя дописываете?

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

просто у меня в 5 и 7-й версии покороче выглядит:

uses Windows,Forms,ExtCtrls,StdCtrls,Graphics,Controls,Classes,SysUtils,Messages,
     ComCtrls;

[isst]

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

разрешите спросить, а вот это как он вам пишет сам Delphi или вы для себя дописываете?

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

просто у меня покороче:

uses Windows,Forms,ExtCtrls,StdCtrls,Graphics,Controls,Classes,SysUtils,Messages,
     ComCtrls;

Я просто работаю на RAD Studio XE7, ну бывший Борланд, т.к. последний не идет на винду 8.1 Это он сам автоматически добавляет в Юнит, я даже не посмотрел щас

[isst]

Не ну безусловно там не все нужно, можно койчо и убрать из Юзесов

[isst]

И похоже Вы пишете на Борланде/Лазарус, не так ли?

[isst]

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

а можно просто так сделать:

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

аналогично можно и для высоты формы сделать. да и калибровку нужно только один раз задать - 20. а не каждый раз новое значение прописывать: 500, 520, 540 и т.д.
//--------------------------------------------------
разрешите спросить, а вот это как он вам пишет: сам Delphi или вы для себя дописываете?

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

просто у меня в 5 и 7-й версии покороче выглядит:

uses Windows,Forms,ExtCtrls,StdCtrls,Graphics,Controls,Classes,SysUtils,Messages,
     ComCtrls;

Я просто не стал особо заморачиваться. А-а, понял, Вы работаете в 5 и 7 Drlphi. Кстати , Елена, Вы тоже учтите это для своей среды разработки (насчет Uses"ов)