Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - FAQ _ автоматическое создание элементов

Автор: AniMEshKa 18:04:2008, 15:06

подскажите пожалуйста. можно ли в Делфи организовать следующее:
по заданной команде создавать форму определённых размеров, ну а в последующем кнопку на ней, чекбоксы и т.п.
как организовать это автоматическое создание? Спасибо

Автор: European 18:04:2008, 15:14

Цитата(AniMEshKa @ 18:04:2008 - 17:06)

как организовать это автоматическое создание?

вызовом методов Create для соответствующих классов. Только код не просите, а воспользуйтесь поиском. Тему обсасывалась тысячу раз

Автор: sax_ol 18:04:2008, 15:35

AniMEshKa
А зачем вам это? только попрактиковаться или ... ? я к тому что для дин. создания контролов (а тем более формы) нужны веские причины.

Автор: AniMEshKa 18:04:2008, 19:53

а что формы создавать так сложно?
да мне в универе задачу эту поставили... вот думаю с какой стоороны к этому делу подобраться..
вот и ищу помощи.. буду разбираться потихоньку

Автор: sax_ol 19:04:2008, 07:53

Цитата(AniMEshKa @ 18:04:2008 - 21:53)

а что формы создавать так сложно?

Нет не сложно, но практического интереса, практически (сори за тавтологию), не представляется.

Цитата(AniMEshKa @ 18:04:2008 - 21:53)

вот думаю с какой стоороны к этому делу подобраться

С нужного понять что вам не понятно и действовать.

Автор: AniMEshKa 19:04:2008, 08:43

а тут как оказалось необходимо и формы создавать? принцип аналогичен созданию кнопок ?

Автор: sax_ol 19:04:2008, 08:51

Принцип, да.

Автор: AniMEshKa 19:04:2008, 10:02

с кнопками , лэйблами и тп получилось всё. а вот форму ттак и не получается создать динамически. подскажите плз

Автор: sax_ol 19:04:2008, 10:21

все просто

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  form :TForm;
begin
  form := TForm.Create(Application);
  form.OnClose := self.FormClose;
  with TLabel.Create(form) do begin
    Parent := form;
    Caption := 'Label 1';
  end;
  form.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.