как форму прикрепить к главной ???

[amateur]

Привет...
Может я не прав, но вот такой код:

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

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Left := 0;
  Form2.Top := Form1.Height;
end;

выдает ошибку:

*stopped,reason="signal-received",signal-name="SIGSEGV",signal-meaning="Segmentation fault",thread-id="1",frame={addr="0x00471e97",func="TCONTROL__SETLEFT",
args=[{name="VALUE",value="0"},{name="this",value="0x0"}],
file="control.inc",line="2905"}

в чем проблема?

Lazarus-0.9.23-fpc-2.2.1-20070910-win32.exe

не прав. надо правельно форматировать сообщение =)

[Browny]

Не подтверждаю.
Для Lazarus 0.9.23, Win32, svn 11933, snapshot 04.09.2007 такого не происходит.
Проверь Position и FormStyle, сообщи. Сообщи, какие выставлены координаты для основной формы, а также ширину и высоту той и другой формы. Нет ли у форм статуса модальности? Попробую проверить ещё раз.

[amateur]

Использовал этот код (форма создавалась, но вылетала ошибка)
With TForm2.Create(self) do begin;
Show;
end;

А при этом коде ошибки нет.

Form2 := TForm2.Create(self);
Form2.Show;

[alexs]

после begin точка с запятой не ставится

With TForm2.Create(self) do begin;

[amateur]

ссори, но суть от этого не меняется. (2 код работает, 1 нет)
Код писался правильно. А это, просто машинальная ошибка...

[alexs]

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

procedure AlignWorkForm(AForm: TForm);
var
b:integer;
begin
  if Assigned(AForm) then
  begin
    B:=30;
    AForm.Left:=0;
    AForm.Width:=Screen.Width;
    AForm.Top:=Application.MainForm.Top + Application.MainForm.Height + B;
    AForm.Height:=Screen.Height - AForm.Top - B;
  end;
end;


Вот одна из функци по расположению окна из моего проекта
переменная B обсуловленна тем - не знаю как в linux-e определить ширину рамки окна (это зависит от текущей темы)

[Brainenjii]

а в винде знаете ?

[alexs]

она универсальная
тут нет платформозависимого кода

[Brainenjii]

Не, хотя бы только в винде как узать высоту CaptionBar'a и бордюра...
З.Ы. а то там в XP с темами одно умолчательное значение, без - другое...

[alexs]

надо смотреть вин-апи функции
если разберёшся - тебе от меня будет большой спасиб

[amateur]

uses Windows;

GetSystemMetrics(SM_CYCAPTION)

WindowStateChange - здеся идет перерасчет размера окна. Работает, и оочень красиво получается.

Это работает в винде. В лине не знаю, проверить нет возможности...
Мне интересно: как в лине...
Еще хочу заголовок убрать у формы, токо как тогда форму передвигать???

[Attid]

Еще хочу заголовок убрать у формы, токо как тогда форму передвигать???

ручками в нете примеры есть, тут на форуме я где-то контролы двигал принцип тот же.