зафиксировать место для формы

Gudzik11 · #1 25.04.2014, 10:57

Здравствуйте не знаю как правельно обяснить что мнке нужно ?
У меня форма находитса над понелью задачь и мне нужно чтоб другие программы при открытии на весь экран не перекрывала мою форму тоесть как на картинке.

poli-smen · #2 25.04.2014, 13:10

Цитата:

Сообщение от Gudzik11

У меня форма находитса над понелью задачь и мне нужно чтоб другие программы при открытии на весь экран не перекрывала мою форму тоесть как на картинке.

Тебе нужно делать своё приложение в виде "Панели инструментов рабочего стола"
Вот >здесь< уже готовый модуль AppBar.pas на Delphi (смотри в архиве демку в папке DemoApp)

Gudzik11 · #3 25.04.2014, 16:57

Спасибо! То что нужно .

Gudzik11 · #4 25.04.2014, 19:38

Подскажите как пне сразу установить панель в нижний край экрана и запретить передвижение мышкой.
я просто ешё долго буду разбирать этот модуль

poli-smen · #5 25.04.2014, 22:58

Цитата:

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

Gudzik11 · #6 25.04.2014, 23:52

спасибо с этим я разобрался.
Скажите при создании форма как бы подлетает к нижнему краю экрана скажите можно это как то убрать и можно сделать отступы от левого и правого края

Gudzik11 · #7 26.04.2014, 14:19

Подскажите почему пропадает звук у приложения если использовать этот модуль вот код

Код:

unit HomeUnit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, AppBar, Vcl.Menus, OptionsUnit2, System.Contnrs,
  Vcl.ComCtrls,
   Winapi.MMSystem, bass_simple ;
 
type
  TForm1 = class(TAppBar)
    Panel1: TPanel;
    Panel2: TPanel;
    PopupMenu1: TPopupMenu;
    mniOptions: TMenuItem;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure mniOptionsClick(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure PClick(Sender: TObject);
    function IndexInParent(vControl: TControl): integer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
     procedure openPanel;
 
  public
    { Public declarations }
    b: TbassSimple;
  end;
 
var
  Form1: TForm1;
  numberPages: Byte ; // номер панели
  selekt_panel: Integer ; // нажатие на панель
  focusPanel: Integer ;   // панель в фокусе
  MinForma,MaxForma : Integer ; // минемальный/максимальный размер панели
 
  paus: Integer ; // Пауза для закрытия
implementation
 
{$R *.dfm}
 
 procedure TForm1.openPanel;
 var
   spid : Integer ;
 begin
  if Form1.Height<=MinForma then
  begin
    //PlaySound('sound\hew\System Notifi.wav', 0, SND_ASYNC);
     b.Play('sound\GTAtitles.mp3');
    for spid := 0 to MaxForma do
   begin
    Form1.Top:=Form1.Top-1;
    Form1.Height:=Form1.Height+1;
   end;
  end;
 
  Form1.Panel1Resize(nil);
 end;
 
  // закрыть панель
 procedure closePanel;
 var
   spid : Integer ;
 begin
  if Form1.Height>=MaxForma then
  begin
  // PlaySound('sound\steam.wav', 0, SND_ASYNC);
   for spid := 0 to MaxForma do
   begin
    Form1.Top:=Form1.Top+1;
    Form1.Height:=Form1.Height-1;
   end;
  end;
 end;
 
{ функция, возвращающая индекс искомого компонента в
списке родителя; возвращает -1 при отсутствии компонента }
function TForm1.IndexInParent(vControl: TControl): integer;
var
 
ParentControl: TWinControl;
begin
 
 {делаем "слепок" родителя через базовой класс на предмет доступности }
 ParentControl := TForm(vControl.Parent);
 if (ParentControl <> nil) then
  begin
   for Result := 0 to ParentControl.ControlCount - 1 do
    begin
     if (ParentControl.Controls[Result] = vControl) then Exit;
    end;
  end;
 { если мы уж попали в это место, то либо не найден компонент, либо компонент не имел родителя }
 Result := -1;
end;
 
procedure TForm1.PClick(Sender: TObject);
var
 i,j: Integer;
begin
 focusPanel:=IndexInParent((sender as TPanel));
 for i:=0 to list.Count-1  do
 begin
  if ( TPanel(list[i]) is TPanel) then  // and (Panel4.Controls[i] <> Sender) and (Pos('Pages',TPanel(Panel4.Controls[i]).Caption) = 1)
  begin
   TPanel(list[i]).Color:=clSilver;
   (sender as TPanel).Color:= clLime;
   if i=focusPanel then
   begin
    TPanel(ListPage[i]).Visible:=True;
   end
   else
   begin
    TPanel(ListPage[i]).Visible:=False;
   end;
 
  end;
 
 end;
 openPanel;
  Timer1.Enabled:=True;
  Panel1Resize(nil);
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 // закрыть панель
 if (Mouse.CursorPos.y<Form1.top) or (Mouse.CursorPos.y>Form1.top+Form1.Height) or (Mouse.CursorPos.x<Form1.Left) or (Mouse.CursorPos.x>Form1.Left + Form1.Width)  then
    begin
     Timer2.Enabled:=True;
 
 
      end
      else
      begin
       Timer2.Enabled:=False;
       paus:=0;
      end;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 paus:=paus+1;
 if paus=50 then
 begin
  closePanel;
  paus:=0;
  Timer2.Enabled:=False;
  Timer1.Enabled:=False;
 end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 MinForma:=30;
 MaxForma:=100;
 selekt_panel:=-1;
 indexsLst:=-1;
 focusPanel:=0;
 
 b:=TBassSimple.Create(Handle);
 
 Form1.Edge:= abeBottom;
 Form1.Left:=10;
 Panel1.Height:=30;
 Form1.Height:=MinForma;
 Form1.Top:=Screen.WorkAreaHeight - Form1.Height;
 Form1.Width:=Screen.WorkAreaWidth-20;
 
 paus:=1; // Пауза для закрытия
 
// waveOutSetVolume(0,100000); // громкость панельки
 end;
 
 
 
procedure TForm1.mniOptionsClick(Sender: TObject);
begin
 Form2.Show;
end;
 
procedure TForm1.Panel1Resize(Sender: TObject);
const
 Pad = 2;
var
 i,j: Integer;
begin
 Form2.ListBox1.Clear;
 
 if List.Count>0 then
 begin
  For i := 0 to list.Count-1 do
  begin
   TPanel(list[i]).Left:=(Panel1.Width - Pad) * i div List.Count + Pad;
   TPanel(list[i]).Top:=Pad;
   TPanel(list[i]).Height:= Panel1.Height - Pad * 2;
   TPanel(list[i]).Width:= (Panel1.Width - Pad) * (i + 1) div List.Count - TPanel(list[i]).Left;
  end;
 end;
 
 for j := 0 to list.Count-1 do
 begin
  Form2.ListBox1.Items.Add(TPanel(list[j]).Caption)
 
 end;
 
 
 Form2.ListBox1.ItemIndex:=selekt_panel;
 
 
end;
 
end.

Gudzik11 · #8 26.04.2014, 14:19

Это глюк AppBar.pas

cotseec · #9 26.04.2014, 18:58

в приведенном модуле присутствует такая штука, как bass_simple, используемая для воспроизведения звука (например в строке 54), копать стоит там

Gudzik11 · #10 26.04.2014, 19:20

я пробовал и

Код:

1	`PlaySound('sound\hew\System Notifi.wav',` `0, SND_ASYNC);`

результат тот же звук еле еле слышен если колонки на всю тут я думаю что в модуле AppBar.pas дело или я не правильно его использую так как при компиляции делфи тоже себя видёт странно .

Если не трудно может глянете .
http://gfile.ru/a5Klw

Gudzik11 · #11 26.04.2014, 19:39

да ето я не правильно использую AppBar.pas

Я делал так создал новый проект потом добавил в uses
AppBar
Потом строку

Код:

1	`TForm1 =` `class(TForm)`

заменил

Код:

1	`TForm1 =` `class(TAppBar)`

Думаю тут нужно было по другому как то делать потому что пример работает отлично и Delphi не глючит и звук работает отлично !

Подскажите как правильно нужно делать?

NumLock · #12 26.04.2014, 20:28

создал простейшее приложение с SHAppBarMessage и PlaySound (MMSystem, ShellAPI). все отлично воспроизводится.

Gudzik11 · #13 29.04.2014, 20:55

Спасибо тоже сейчас всё стало нормально!
Скажите а как при закрытии формы вернуть рабочий стол на место .

Gudzik11 · #14 29.04.2014, 21:47

Всё понял спасибо

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Gudzik11 (25.04.2014)

Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Gudzik11 (29.04.2014)