Cola |
---|
Происходит исключение, что я не так делаю?
procedure TUniForm17.UniButton1Click(Sender: TObject);
var Form17: TUniForm17;
Frame13: TUniFrame13;
begin
Frame13 := TUniFrame13.Create(Self);
Frame13.Parent := Form17;
end;
|
Давайте аккуратно запишем словами Ваш код:
1. Объявляем процедуру с ужасным именем
2. Объявляем четыре байта со случайным значением, лежащие где-то в стеке, переменной Form17
3. Объявляем следующие четыре байта со случайным значением, лежащие где-то в стеке, переменной Frame13
4. Вызываем конструктор, получаем из него четыре байта результата и записываем их в Frame13
5. Берём четыре байта со случайным значением из Form17 и передаём их в процедуру TWinControl.SetParent
Нужны дальнейшие пояснения?