[faust_yemen]

У меня тоже проблема, не совсем с Memo...

Надо, чтоб по DblClick Memo растягивался на весь экран и при повторном событии сворачивался обратно.

делаю примерно так

Код:

if f then
    begin
      {здесь сохраняю Top, Left, Align и т.д.}
      windows.SetParent(Memo1.Handle,0);
      setwindowpos(Memo1.Handle, 0, 0 ,0, screen.Width, screen.Height, SWP_SHOWWindow);
    end
  else
    Begin
      windows.SetParent(Memo1.Handle, form1.handle);
       { и здесь восстанавливаю все параметры}
  end;
f:=NOT F;

Так вроде всё работает, но мне надо создать новый компонент с такой процедурой.

там почти также...

Код:

var
   param: paramMem;
   w: TwinControl;
begin
  inherited Click;

if f then
    begin
      w:=self.Parent;
      windows.SetParent(self.Handle,0);
      setwindowpos(self.Handle, 0, 0 ,0, screen.Width, screen.Height, SWP_SHOWWindow);
    end
  else
    Begin
      windows.SetParent(self.Handle, w.handle);
  end;
f:=NOT F;

Но так Memo обратно прицепляться не хочет. В чём проблема? Или может есть более простой способ?
Delphi 7, XP