Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=415037 Thu, 29 Jul 2004 23:25:53 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=415037
     
    var
      PMSave : TPoint;    (* в PMSave сохраняем абсолютные координаты мыши *)
     
    procedure Win_Move(h:HWnd);
    var dx,dy : integer; r : TRect; PM : TPoint;
    begin
      GetCursorPos(PM);        (* получить абсолютную текущую позицию мыши *)
      dx := PM.X - PMSave.X; dy := PM.Y - PMSave.Y; (* изменения координат *)
      if (dx = 0) and (dy = 0) then Exit;   (* если нет изменений - выйти  *)
      PMSave := PM;            (* запомнить текущую позицию мыши           *)
      GetWindowRect(h,r);      (* выяснить абсолютные координаты окна      *)
      SetWindowPos(h,
            HWND_TOP,          (* оставлять перемещаемое окно наверху      *)
           r.Left+dx,r.Top+dy, (* новые координаты левого верхнего угла    *)
                   0,0,        (* ширину и высоту не задаём, т.к.          *)
           SWP_NOSIZE);        (* т.к. размер окна не меняем               *)
    end;
     
    procedure Win_OnLButtonDown(h:HWnd; var Msg:TWMMouse);
    begin
      GetCursorPos(PMSave); (* получить и запомнить абсолютные координаты мыши *)
      SetCapture(h);        (* "захватить" мышь окном h                        *)
    end;
     
    procedure Win_OnLButtonUp(h:HWnd; var Msg:TWMMouse);
    begin
      ReleaseCapture; (* освободить захват мыши окном *)
      Win_Move(h);    (* последний сдвиг окна         *)
    end;
     
    procedure Win_OnMouseMove(h:HWnd; var Msg:TWMMouse);
    begin
      if (Msg.Keys and MK_LBUTTON) = 1  (* если удерживается левая кнопка мыши *)
      then Win_Move(h);                 (* то сдвинуть окно                    *)
    end;
     
    function Win_WindowProc(h: HWnd; AMessage, WParam, LParam: Longint): Longint; stdcall; export;
    var aMsg : TMessage absolute AMessage;
    begin
      Win_WindowProc := 0;
    (*   инструкция "absolute" позволяет обойтись без присваиваний :
      AMsg.Msg    := AMessage;
      aMsg.WParam := WParam;
      aMsg.LParam := LParam;
      aMsg.Result := 0;
    *)
      case AMessage of
        wm_Destroy: begin PostQuitMessage(0); Exit; end;
    //  wm_Paint       : Win_OnPaint      (h,TWMPaint(aMsg));
        wm_MouseMove   : Win_OnMouseMove  (h,TWMMouse(aMsg));
        wm_LButtonDown : Win_OnLButtonDown(h,TWMMouse(aMsg));
        wm_LButtonUp   : Win_OnLButtonUp  (h,TWMMouse(aMsg));
    //  wm_KeyDown     : Win_OnKeyDown
      end; (* case *)
     
      Win_WindowProc := DefWindowProc(h, AMessage, WParam, LParam); (* DefaultProc *)
    end;


Добавлено в :
2taifun вместо SetWindowLong я использую CreateWindowEx - см. сообщение #8

2oygan по поводу сворачивания окна - можно сделать соответствующую обработку на wm_KeyDown.
По поводу кнопочек, я бы сделал так:
- выделил несколько (список) Rect в своём окне, заполнил их нужными картинками, затем при обработке щелчка мыши сравнивал её координаты со списком координат Rect, выдавал номер найденного Rect или -1. Далее, если номер >= 0 вызывал бы по Case нужную функцию.]]> swe Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=408249 Thu, 22 Jul 2004 08:31:36 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=408249 Mischka Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=408241 Thu, 22 Jul 2004 08:20:45 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=408241 Цитата P.O.D @ 15.07.04, 10:13
swe, можно
    SetWindowLong(Handle, GWL_EXSTYLE, (GetWindowLong(Handle, GWL_EXSTYLE) and (not WS_EX_APPWINDOW)) or WS_EX_TOOLWINDOW);

можно так, а еще в коде программы вставить примерно такую строчку Application.ShowForm:=false]]> taifun Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=407319 Wed, 21 Jul 2004 06:13:09 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=407319 ZEE прав.]]> Mischka Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=407304 Wed, 21 Jul 2004 06:00:49 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=407304 oygan - задавай вопросы в отдельной теме :rulez:]]> ZEE Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=407276 Wed, 21 Jul 2004 05:36:52 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=407276
Ещё , охото иметь "продвинутое" окно , которо можно двигать , сворачивать и с кнопочками :).

С уважением ,]]> oygan Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=406315 Mon, 19 Jul 2004 23:46:33 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=406315
Чтобы получить самое простое (по виду похожее на Label) окно прямо на рабочем столе, чтобы при этом не появилась кнопка в TaskBar'е нужно:

вместо CreateWindow использовать CreateWindowEx, где первый параметр - расширенный стиль окна должен быть
WS_EX_TOOLWINDOW (чтобы не было кнопки на панели задач). Стиль окна должен быть (должен включать) WS_POPUP, чтобы окно было без заголовка и, кроме того, родительским окном должна быть переменная типа HWnd полученная с помощью функции GetDesktopWindow

вот пример кода:

     
    var
      hMyWnd      : HWnd;   (* наше простое окно                      *)
      hWndDeskTop : HWnd;   (* окно DeskTop - родительское для нашего *)
      WinClassNm  : string; (* имя оконного класса                    *)
    //...
    begin
      hWndDeskTop := GetDesktopWindow;
      WinClassNm  := 'STATIC';  (* это класс для Label либо надо зарегистрировать свой класс *)        
     
      hMyWnd :=
      CreateWindowEx(
       WS_EX_TOOLWINDOW,  //  - чтобы не было кнопки на панели задач
       WinClassNm,        //  - имя оконного класса
       '',                //  - имя окна
    (* стиль окна *)
       WS_POPUP or        // 00 0000    - без заголовка окна
       WS_BORDER,         // {text}80 0000    - тоненькая граница цвета Border
     
       0,     0,          // x0   , y0
       300, 100,          // width, height
       hWndDeskTop,       // hParentWindow,
       0,                 // hMenu
       hInstance,         // глобальная переменная модуля SysInit
       Nil );
    end;
]]> swe Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=403069 Thu, 15 Jul 2004 07:13:22 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=403069 swe, можно
    SetWindowLong(Handle, GWL_EXSTYLE, (GetWindowLong(Handle, GWL_EXSTYLE) and (not WS_EX_APPWINDOW)) or WS_EX_TOOLWINDOW);
]]> P.O.D Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=403053 Thu, 15 Jul 2004 06:56:38 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=403053
Добавлено в :
хотя щас подумал о др. варианте:
можно попробывать вместо WS_POPUP поставить WS_CHILD
но я такой способ не проверял...]]> ZEE Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=403029 Thu, 15 Jul 2004 05:57:24 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=403029 ZEE спасибо, всё работает. Только на ТаскБаре при запуске такого окошка появляется кнопка (которая позволяет сделать окно активным). Можно ли сделать так, чтобы этой кнопки не было?]]> swe Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402066 Wed, 14 Jul 2004 06:01:48 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402066 Цитата
swe, 14.07.04, 07:59
нужно задать какие-то правильные параметры в CreateWindow.

dwStyle = WS_POPUP
размеры и положение = по своему усмотрению :)
hWndParent = GetDesktopWindow
...]]> ZEE Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402035 Wed, 14 Jul 2004 04:59:23 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402035 (И нужно выбрать правильный WindowClass.)
Label собственно мне не нужна]]> swe Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402029 Wed, 14 Jul 2004 04:40:07 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402029 Если label, то натянуть какоу-нить label на это окно, поставить Align:=alClient; вроде все...:)]]> p_kolya Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402023 Wed, 14 Jul 2004 04:15:37 +0000 Label на Рабочем Столе https://forum.sources.ru/index.php?showtopic=59733&view=findpost&p=402023 (типа как WinAmp делает, или как окошечки хинтов)]]> swe Delphi: Система, Windows API