Показать сообщение отдельно
  #5  
Старый 25.04.2014, 22:58
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Gudzik11
Подскажите как пне сразу установить панель в нижний край экрана и запретить передвижение мышкой.
Чтобы создавалась сразу снизу - делаешь на событии OnCreate формы:
Код:
procedure TDemoBar.FormCreate(Sender: TObject);
begin
  Edge := abeBottom;
end;
Чтобы нельзя было мышкой перемещать или менять размер - проще всего перехватывать сообщение WM_NCHITTEST:
Код:
type
  TDemoBar = class(TAppBar)
.....
  protected
    procedure OnNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
  end;
.....
implementation
.....
procedure TDemoBar.OnNCHitTest(var Msg: TWMNCHitTest);
begin
  Msg.Result := HTCLIENT;
end;

Ну или же убрать перехват этого сообщения у класса TAppBar в модуле AppBar.
Ответить с цитированием