[sid401]

Здравствуйте.

Такой вот вопрос.
Есть функция, внутри нее создается форма строчкой

AskForm:=TForm.Create(nil);

Теперь нужно на этой AskForm создать пару элементов, например типа TLabel или TButton.

Заранее спасибо за ответ.

[Winny]

Код:

var
AskButton:TButton;
begin
AskButton:=TButton.Create(AskForm);
AskButton.Parent:=AskButton;
AskButton.Caption:='Кнопка';
{далее идёт присвоение таких свойств как Left, Top, Height, Width и любое другое на твоё усмотрение}

[sid401]

Большое спасибо.

Только наверное вместо:
AskButton.Parent:=AskButton;

Нужно
AskButton.Parent:=AskForm;

[sid401]

Теперь не могу допереть как обрабатывать события по нажатию этой кнопки. Т.е. в обычном случае то понятно - двойной клик на Event - OnClick и процедура новая появляется. Здесь эту процедуру нужно как-то самому писать?



Да, кстати после того как выполнение этой функции закончиться, все элементы на ней и сама форма прекращают свое существование?

[san-46]

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

Теперь не могу допереть как обрабатывать события по нажатию этой кнопки. Т.е. в обычном случае то понятно - двойной клик на Event - OnClick и процедура новая появляется. Здесь эту процедуру нужно как-то самому писать?

В объявлении класса AskForm надо записать:

Код:

procedure DoButtonClick(Sender: TObject);

Наименование процедуры не имеет значения.
В секции implementation реализацию этой процедуры:

Код:

procedure AskForm.DoButtonClick(Sender: TObject);
begin
///
end;

В функции после создания кнопки, ее событию присвоить имя процедуры:

Код:

  ...
  AskButton.OnClick := DoButtonClick;
  ...

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

Да, кстати после того как выполнение этой функции закончиться, все элементы на ней и сама форма прекращают свое существование?

Нет, не прекращают. Надо явно пристрелить созданную форму:

Код:

AskForm.Free;

[sid401]

У меня форма объявляется так, внутри функции:

function AskYesNoRus(txt2: String):boolean;
var AskForm:TForm;
....

Не совсем понимаю что значит "В объявлении класса AskForm надо записать"

сорри за глупые вопросы