Открытие MDI-окон определенного размера

Материал из DRKB

Открытие MDI-окон определенного размера[править | править код]

var
  ProjectWindow: TWndProject;
begin
  if ProjectActive = False then 
  begin
    LockWindowUpdate(ClientHandle);
    ProjectWindow := TWndProject.Create(self);
    ProjectWindow.Left := 10;
    ProjectWindow.Top := 10;
    ProjectWindow.Width := 373;
    ProjecTwindow.Height := 222;
    ProjectWindow.Show;
    LockWindowUpdate(0);
  end;
end;


Используйте LockWindowUpdate перед созданием окна и после того, как создание будет завершено.


Source: Взято с http://delphiworld.narod.ru
ID: 00493