Не создает кнопки в рантайм

@kyzavr · Регистрация: 22.05.2013

Author24 — интернет-сервис помощи студентам

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

RuntimeForm

Кликните здесь для просмотра всего текста

Delphi

unit Unit3;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Unit4,
  ExtCtrls, StdCtrls;
type
  { TRuntimeForm }
  TRunTime = class(TForm)
 
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  private
  Manager: TComponentManager;
  public
  end;
 
var
  RunTime: TRunTime;
 
implementation
 
{$R *.lfm}
 
 
 
{ TRunTime }
 
procedure TRunTime.FormCreate(Sender: TObject);
begin
     Manager:=TComponentManager.Create(RunTime);
     Manager.SetF();
 
end;
 
procedure TRunTime.FormDestroy(Sender: TObject);
begin
  Manager.Free;
end;
 
 
 
end.

ComponentManager

Кликните здесь для просмотра всего текста

Delphi

unit Unit4;
 
{$mode objfpc}{$H+}
 
 
interface
 
uses
  SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls,ExtCtrls;
 
type
  TComponentManager = class  (TForm)
 
  private
    Form: TForm;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Conf: TIniFile;
  public
    constructor Create(fform: TForm);
    procedure ShowPic(Sender: TObject);
    procedure CloseP(Sender: TObject);
   procedure SetF();
    destructor Destroy;
    { Public declarations }
  end;
 
 
implementation
 
uses Unit3;
{ TComponentManager }
constructor TComponentManager.Create(fform: Tform);
  begin
    Form:=fform;
    Button1:=TButton.Create(fform);
    Button2:=TButton.Create(fform);
    Label1:=TLabel.Create(fform);
    Image1:=TImage.Create(fform);
  end;
 
 
procedure TComponentManager.SetF();
begin
  Conf:=TiniFile.Create(extractfilepath(Application.ExeName)+'lb2.ini');
  Label1.Parent:=RunTime;
  Label1.Caption:=Conf.ReadString('LABELS', 'Label1', 'fail');
  Label1.Top:=16;
  Label1.Left:=200;
  Label1.Width:=119;
 
  Button1.Parent:=RunTime;
  Button1.Caption:=Conf.ReadString('BUTTONS', 'Button1', 'fail');
  Button1.Top:=48;
  Button1.Left:=120;
  Button1.Width:=75;
 
  Button1.OnClick:=@ShowPic;
 
 
  Button2.Parent:=RunTime;
  Button2.Caption:=Conf.ReadString('BUTTONS', 'Button2', 'fail');
  Button2.Top:=48;
  Button2.Left:=232;
  Button2.Width:=75;
 
  Button2.OnClick:=@CloseP;
 
  Image1.Parent:=RunTime;
  Image1.Height:=250;
  Image1.Top:=88;
  Image1.Left:=16;
  Image1.Width:=384;
  Image1.Picture.LoadFromFile(Conf.ReadString('IMAGES', 'Image1', 'fail'));
  Image1.Visible:=False;
end;
 
procedure TComponentManager.ShowPic(Sender: TObject);
begin
     Image1.Visible:=True;
end;
procedure TComponentManager.CloseP(Sender: TObject);
begin
     Image1.Visible:=False;
end;
destructor TComponentManager.Destroy;
begin
  Button1.Free;
  Button2.Free;
  Label1.Free;
  Image1.Free;
  Button1:=nil;
  Button2:=nil;
  Label1:=nil;
  Image1:=nil;
end;
 
end.

могу скинуть архив с проэктом если вдруг кто сможет помочь но из этого кода нефига не понял

@volvo · 09.11.2014, 21:10

Присоединяй. Только ini-файл не забудь включить в проект. А EXE-шник можешь убрать, незачем мегабайты просто так перекачивать...

@kyzavr · 09.11.2014, 21:13 **[ТС]**

вот

@volvo · 09.11.2014, 21:37

Pascal

procedure TRunTime.FormCreate(Sender: TObject);
begin
     Manager:=TComponentManager.Create(Self); // Раз
     Manager.SetF();
end;

Pascal

procedure TComponentManager.SetF();
begin
  Conf:=TiniFile.Create(extractfilepath(Application.ExeName)+'lb2.ini');
  Label1.Parent:=Form; // Два, и так далее, всем Parent-ам...
  Label1.Caption:=Conf.ReadString('LABELS', 'Label1', 'fail');
  Label1.Top:=16;
  Label1.Left:=200;
  Label1.Width:=119;

Причина понятна, или объяснить?

@kyzavr · 09.11.2014, 22:29 **[ТС]**

Спасибо)) да понял)))

Добавлено через 45 минут
А не подскажешь как удалить кнопку? допустим после того как она нажалась ее удалить? как создать я понял) а вот как удалить чет не очень))

@volvo · 09.11.2014, 23:30

Поскольку удалить кнопку изнутри ее же обработчика OnClick нельзя - придется задействовать механизм отсылки сообщений. В класс TRunTime добавляешь:

Pascal

type
  TRunTime = class(TForm)
  // ...
  private
    Manager: TComponentManager;
  public
    procedure MyHandler(var Message: TMessage); message WM_USER; // вот такой метод
  end;
 
// вот с такой реализацией:
procedure TRunTime.MyHandler(var Message: TMessage);
begin
  TButton(Message.lParam).Free;
end;

, а в обработчике ShowPic - отсылаешь сообщение форме, чтобы она уничтожила кнопку:

Pascal

procedure TComponentManager.ShowPic(Sender: TObject);
begin
     Image1.Visible:=True;
     PostMessage(Form.Handle, WM_USER, 0, LongInt(Sender));
end;

Не забудь добавить в обоих модулях в список Uses еще и модуль Windows...

@kyzavr · 09.11.2014, 23:57 **[ТС]**

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

@volvo · 10.11.2014, 00:29

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

потому что если заново зайти

Если заново создать форму в рантайме, то все будет прекрасно работать, проверено.

Добавлено через 7 минут
А для того, чтобы твой код не вылетал - достаточно просто перенести создание кнопки из TComponentManager.Create в ShowPic

Pascal

procedure TComponentManager.ShowPic(Sender: TObject);
begin
  Button1.Left:=8;
  Form.Top :=  10;
  Form.Left := 10;
  Form.ClientHeight:=850;
  Form.ClientWidth:=800;
  Image1.Visible:=True;
  Label1.Left:=400;
 
  Button2:=TButton.Create(form); // <--- !!!
 
  Button2.Parent:=Form;
  Button2.Caption:=Conf.ReadString('BUTTONS', 'Button2', 'fail');
  Button2.Top:=24;
  Button2.Left:=450;
  Button1.Left:=390;
  Button2.Width:=56;
  Button2.Height :=31;
  Button2.OnClick:=@CloseP;
  Image1.Visible:=True;
end;

, а в конструкторе - закомментируй аналогичную строку... Тогда можно будет многократно жать "Yes" и "Close", пока не надоест

@kyzavr · 10.11.2014, 00:47 **[ТС]**

Спасибо большое )))

Не создает кнопки в рантайм

Решение

Решение

Решение

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	09.11.2014, 21:10	2
	Присоединяй. Только ini-файл не забудь включить в проект. А EXE-шник можешь убрать, незачем мегабайты просто так перекачивать... 0

@kyzavr 2 / 2 / 0 Регистрация: 22.05.2013 Сообщений: 136
	09.11.2014, 22:29 [ТС]	5
	Спасибо)) да понял))) Добавлено через 45 минут А не подскажешь как удалить кнопку? допустим после того как она нажалась ее удалить? как создать я понял) а вот как удалить чет не очень)) 0

@kyzavr 2 / 2 / 0 Регистрация: 22.05.2013 Сообщений: 136
	10.11.2014, 00:47 [ТС]	9
	Спасибо большое ))) 0

Опции темы