Создание дочерней формы в границах Panel родительской. Делфи

[JUDAS]

Сообщение от min@y™

Даёшь КОНТЕСТ!!! Чур левый говнокод не юзать!!11

да я с темы всё собрал и скидал ему в готовый проект. Может чел проекты создавать не умеет

[Artsiom]

Ну, что-то типа того.
https://yadi.sk/i/ifW56cSGiE3sT <-- скрин
Думаю, что так намного удобней чем бегать за этими формами по всему экрану.
Осталось только прикрутить вытяжку из таблиц вордовских файлов в стринггрид и кнопку для составления общего отчета.

Сообщение от Алексей_2012

А форм2.даблбуфер:=истина пробовали?

Вот теперь попробовал. Спасибо, не так блевотно теперь смотреть))

[Аватар]

Фреймы не?

[min@y™]

Только один компонент на форме: TButton.

[Artsiom]

Сообщение от Аватар

Фреймы не?

А смысл? Панельку кинул, родителя указал, профит.
Почитал про фрейм, ну не знаю. Пока я практического применения не вижу. Выросту - пойму

Да, да. Как на гифке.

[min@y™]

Да, да. Как на гифке.

весь исходник - 49 строк, включая раздел interface и пустые строки.

Панельку кинул, родителя указал, профит.

У меня там только форма и кнопка, никаких панелей.

[ResourceSpace]

А я вот не понимаю - и зачем вам некие массивы окон?

Procedure EnableDoubleBuffered(C: TWinControl);
Var i: Integer;
Begin
C.DoubleBuffered:=True;
For i:=0 To C.ComponentCount-1 Do
      If (C.Components[i] Is TWinControl) Then
            TWinControl(C.Components[i]).DoubleBuffered:=True;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
EnableDoubleBuffered(Self);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var C: TWinControl; F: TForm2; W, H: Integer;
Begin
Case Random(4) Of
      0:  C:=Panel1;
      1:  C:=Panel2;
      2:  C:=Panel3;
      3:  C:=Self;
      End;
W:=C.Width-200;
H:=C.Height-200;
F:=TForm2.Create(Self); // Обычно для окон указывается Application, но так как окна делаются дочерними нужно Self
EnableDoubleBuffered(F);
F.Color:=RGB(Random(256), Random(256), Random(256));
F.Parent:=C;
F.SetBounds(Random(W), Random(H), 200, 200);
F.Show();
End;

Procedure TForm1.Button2Click(Sender: TObject);
Var i: Integer; C: TWinControl;
Begin
C:=Panel1; // Panel2 // Panel3 // Self
For i:=0 To C.ControlCount-1 Do
      If (C.Controls[i] Is TForm2) Then
            ShowMessage(C.Name+'>'+TForm2(C.Controls[i]).Name);
End;

Procedure TForm1.Button3Click(Sender: TObject);
Var i: Integer;
Begin
For i:=0 To ComponentCount-1 Do
      If (Components[i] Is TForm2) Then
            ShowMessage(TForm2(Components[i]).Parent.Name+'>'+TForm2(Components[i]).Name);
End;

......

Type
      TForm2 = Class(TForm)
      Private { Private declarations }
            Procedure OnMoving(Var Msg: TWMMoving); Message WM_MOVING;
      Public { Public declarations }
      End;

.....

Procedure TForm2.OnMoving(Var Msg: TWMMoving);
Var D: Integer;
Begin
If Not Assigned(Parent) Then
      Exit;
If Left<0 Then
      OffsetRect(Msg.DragRect^, -Left, 0);
If Top<0 Then
      OffsetRect(Msg.DragRect^, 0, -Top);
D:=Left+Width-Parent.Width;
If D>0 Then
      OffsetRect(Msg.DragRect^, -D, 0);
D:=Top+Height-Parent.Height;
If D>0 Then
      OffsetRect(Msg.DragRect^, 0, -D);
End;

[JUDAS]

Почитал про фрейм, ну не знаю. Пока я практического применения не вижу. Выросту - пойму

Лучше не используй фреймы автор, или используй в очень крайних случаях. У нас на работе есть фонат фреймов. Когда дело дошло до того что на них начали вешать гриды и датасеты (TDBGridEh + TOraQuery) и нужно было добавить одно поле в реальную таблицу, то там целый геморой по их добавлению. Когда дело доходило до обработчиков типа OnGetText OnScroll и.т.п. то там вообще жопа. Приходится пересоздавать все фреймы по проекту, а их там добрый десяток.
Прощлкаешь какой то, в одном gettext не отображается, в осталььных отображается... и сидишь вспоминаешь где ты чё не сменил, и какой я был дебил когда согласился на фреймы.
вот как то так.

А я вот не понимаю - и зачем вам некие массивы окон?

ResourceSpace, вот теперь включи мозги и посмотри что получилось у тебя, и что получилось у ответчиков до тебя.
У них 3 простые функции, а у тебя портянка кода которая предназначена явно не для начинающего.

п.с. я о OffsetRect(Msg.DragRect^, -Left, 0); с оператором ^ я познакомился в 2005 году когда переводил один проект с зяблодиалекта (Си без плюсов) причём учитывая то, что в Паскале я сидел с 1997 (турбо паскаля7) а программирую с 1989 (с бейсика фортрана и асемблера)

[Аватар]

Лучше не используй фреймы

Ага, неудачный опыт какого-то программиста в массы Нормально фреймы ведут себя, при условии аккуратного подхода к их использованию

[min@y™]

Да ладно, проблема не во фреймах (TWinControl - от и в Африке TWinControl). Основная проблема - рукожопая прокладка между креслом и монитором. По себе знаю, сам когда-то в прошлой жизни рукожопил.