Цитата:
|
Сообщение от M.A.D.M.A.N.
Код:
procedure FooOnClick(sender: tobject);
...
procedure TForm1.FooOnClick(sender: tobject)
begin
...
end;
...
btn1.onclick := FooOnClick; |
мне нужно чтобы в edUser при нажатии на btnUser появлялся какой нибудь текст. EdUser (edit) и btnUser (button) находятся на динамически созданной форме frmUser. Помогите переделать мой ранее предоставленный код. Всё должно быть в одном юните