Цитата:
Сообщение от 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.