Invalid Bounds при включенном AutoSize у кнопок на фрейме

[ssadragon]

Собственно все в прикрепленном проекте.
При последовательном нажатии на кнопка "Показать" и "Скрыть" (у меня получилось в данном проекте 2 раза) на 3-й раз вылазит ошибка как на картинке 1234.jpg
а при наведении на переменную "Msg" Hint как на картинке 12345.jpg
В чем может быть дело понять ни как не могу. Может кто сталкивался и решил данную проблему.

Добавлено спустя 44 минуты 40 секунд:
И это происходит только если кнопки имеют тип TSpeedButton

[ssadragon]

Нарооод сюда кто-нить заходит? Может кто что подсказать?

[amateur]

1:

Код: Выделить всё

Procedure TForm1.Button2Click(Sender: TObject);
Begin
  FreeAndNil(u);
{  u.Visible := False;
  u.Parent  := Nil;
  u.Hide;}
End;

2. http://wiki.freepascal.org/Frames
Читаем, познаем, оживляем
А так, впринципе, одни флудеры тута

[ssadragon]

Скажите тогда, почему это не происходит с другими Button`ами?

[amateur]

Я не знаю как у Вас получилось

..у меня получилось в данном проекте 2 раза) на 3-й раз...

у меня ни разу не сработало без ошибки.

Фрейм создали нормально, токо убили не сильно. И при чем тут кнопки? Хотя, возможно, виноват модуль FormikaFrame (но его не было в архиве).

Кстати: лазарь свн - 1.1, фпс 2.7.1

[ssadragon]

токо убили не сильно.

Всмысле "не сильно"?

виноват модуль FormikaFrame (но его не было в архиве)

Этот модуль тут вообще не причем, можно убрать его.

И при чем тут кнопки?

Потому что ругается на кнопку - вложение 13245.JPG

Кстати: лазарь свн - 1.1, фпс 2.7.1

У меня лазарь свн, фпс из бинарника 2,6,2

[amateur]

1. По Вашим сорцам проблема была в убиении фрейма (с кнопками и всякими "рюшками" проблемы нет);
2.

Код: Выделить всё

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  If Not Assigned(u) Then
  u := TFrame1.Create(self);
  u.Parent  := Panel1;
  u.Align   := alClient;
//  u.Visible := True;
  u.Show;
End;

использовал бы так.

3. Судя по скрину проблема не из данных сорцов (возможно чет с привязкой намудрили)...

[ssadragon]

1. По Вашим сорцам проблема была в убиении фрейма (с кнопками и всякими "рюшками" проблемы нет);

Да при убиении, заместо Hide все нормально, но мне не нужно убивать фрейм, мне надо его скрыть и все.

возможно чет с привязкой намудрили

С привязками все нормально. Панель привязана кверху с вкл. автосайзом, на ней кнопки (SpeedButton - использую для группировки) по левому краю. Все работает нормально пока не вкл. автосайз у кнопок, после этого начинает вылазить такая ошибка как на скринах

[SeZuka]

Проблема с отвязкой от парента:

Код: Выделить всё

Procedure TForm1.Button2Click(Sender: TObject);
Begin
  u.Visible := False;
  //u.Parent  := Nil;
  u.Hide;
End;


так работает на ура

Добавлено спустя 6 минут 6 секунд:
Re: Invalid Bounds при включенном AutoSize у кнопок на фрейме
А

Код: Выделить всё

  u.Visible := False;
  u.Hide;


дублируют друг друга, так же как и

Код: Выделить всё

  u.Visible := True;
  u.Show;


оставьте что-нибудь одно.

[ssadragon]

Проблема с отвязкой от парента:

Интересно почему тогда если используешь другой класс для кнопок такого не происходит.

[amateur]

мне надо его скрыть и все

этого не было в вопросе (хотя сам протупил: мой бубен грил что Visible := False; - не спроста )

тогда если используешь другой класс для кнопок такого не происходит.

1. На данном этапе выбрасывает сообщение?

2. Че токо я не пытался делать (фул набор кнопок бросал) но такой бяки не получилось, хотя ранее встречал такое у себя (но тоды, кажись, чуток перемудрил с растановкой компонентов, а может был и баг. Х.З. давненько было).

[ssadragon]

На данном этапе выбрасывает сообщение?

Нет не выбрасывает после

Проблема с отвязкой от парента:
КОД: ВЫДЕЛИТЬ ВСЁ
Procedure TForm1.Button2Click(Sender: TObject);
Begin
  u.Visible := False;
  //u.Parent  := Nil;
  u.Hide;
End;
так работает на ура