Создание компонента

[russianstrike]

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


И еще вопрос кто может один раз и навсегда объяснить КАК же ПРАВИЛЬНО создавать динамически формы...компоненты на них и ПРОЦЕДУРЫ ОБРАБОТЧИКИ етих компонентов...
Примеры необязательны
интересует принцип...
Когда у тебя один Unit1 и Одна форма в проекте Form1
Никак не могу сообразить Где и что объявлять
для динамически созданных форм и процедур обработки событий для компонентов на етих самых динамических формах...

Или подскажите где смотреть....
Delphi орет матюками на мое "программирование"
а справка.......в процессе перевода

[mihali4]

Опять-таки - ничего невозможного.
Вводим в уже упомянутую строку поиска фразу "динамическое создание" и получаем прекрасные ссылки на темы форума, где это уже неоднократно обсуждалось...
Вы принципиально поиском не пользуетесь?

[russianstrike]

Да пользуюсь я поиском))))

где только можно))

Считайте меня буржуем но все равно не понимаю что не так???

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 }
    procedure ButtonClicked(Sender : TObject);

  public
    { Public declarations }
    procedure CreateForm;
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}



procedure TForm1.CreateForm;
var frm: TForm; btn: TButton; edt:TEdit;
begin
   frm:=TForm.Create(nil);
   frm.Width:=400;
   frm.Height:=200;
   frm.Position:=poMainFormCenter;
   frm.FormStyle:=fsStayOnTop;
   frm.Caption:='Введите название новой РОЛИ';


   btn:=TButton.Create(frm);
   btn.Left:=300;
   btn.Top:=100;
   btn.Parent:=frm;
   btn.Caption:='Создать';
   btn.OnClick := ButtonClicked;

   edt:=TEdit.Create(frm);
   edt.Left:=100;
   edt.Top:=100;
   edt.Parent:=frm;

   frm.ShowModal;
end;

procedure ButtonClicked(Sender : TObject);
begin
ShowMessage('Когда ты будешь работать Мля!');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
CreateForm;
end;
end.

[russianstrike]

[Ошибка] Unit1.pas(18): Unsatisfied forward or external declaration: 'TForm1.ButtonClicked'

кнопка на форме frm????

[mihali4]

Ну так вам же Дельфи ясно подсказывает - в процедуре ButtonClicked нужно указать принадлежность к родительской форме Form1.
Посмотрите на заголовок
procedure TForm1.Button1Click(Sender: TObject);
и
procedure ButtonClicked(Sender : TObject);
Неужели разницы не видите?
Дельфи сама нарисовала вам правильный вариант:
procedure TForm1.ButtonClicked(Sender : TObject);
Это тоже за гранью понимания? Тогда бросьте программирование...

[russianstrike]

: ))))))))))))))))))))))))))))))))))) ))))))))))))))))))))))))))