Формы в Delphi

[TaYgA]

Всем доброго времени суток Пишу программу которая содержит большое количество Form... На главной форме (в левой части) находятся обыкновенные кнопки TButton и TPanel (в правой части формы). Как сделать, чтоб при нажатии на TButton содержимое TPanel изменялось т. е. в главной форме было ещё множество форм с разными программами... С компонентом TPayeControl у меня не получилусь... Нужно чтоб кнопки небыли привязанны и могли находится в любом месте главной формы....

[.Phoenix]

Чуть по конкретней разъясни...не понятно.

[TaYgA]

Плохо видно, что написано... Кнопки используются для выбора той или иной программы (таймер, часы, секундомер и т. д.) При нажатии кнопки, напричер часы, в панели появляются часы, а при нажатии таймера, появляется таймер и т. д.

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

видно то норм.
юзай те или фреймы(я б не стал)...или учитесь пользоватся PageControl'ом(я б так делал...скорее всего...их этих вариантов)

[Velh]

Так что сложного - то? При нажатии на кнопку ненужным компонентам делаем Visible := false, а нужному Visible := true, или я что-то неправильно понял?

[SERG1980]

Сообщение от Пепел Феникса

видно то норм.
юзай те или фреймы(я б не стал)...

А почему бы и нет очень даже неплохо бы получилось

[Баламут]

Фреймы тоже не люблю. А потому предлагаю так... Пример, набранный в Д2010, прилагаю

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.Parent := Panel1;
  Form2.BorderStyle := bsNone;
  Form2.Align := alClient;
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form3 := TForm3.Create(Self);
  Form3.Parent := Panel1;
  Form3.BorderStyle := bsNone;
  Form3.Align := alClient;
  Form3.Show;
end;

end.

[TaYgA]

Velh, идея конечно интересная, но есть одно "но"... А если в панели будут находится не простые программы, а что нибудь весьма сложное, например какой нибудь редактор текста или БД Ежедневник... В одном Unit разместить весь код будет сложно...
Пепел Феникса, PageControl не плох, но он не даёт возможность разместить ктнопки в любом месте главной формы...
Баламут, у меня стоит Delphi 7 и разобраьтся с вашим кода я не смог Объясните пожалуйсто свой код... У нас создана одна форма, чем тогда является Form2 и Form3?!!?

[Баламут]

Ну я же не знаю, как называется та ваша форма, которую вы собираетесь размещать на панели. Поэтому в моем примере фигурируют Form2 и Form3. Вместо них должны быть ваши наименования.

[TaYgA]

Баламут, спасибо Буду разбераться