Модератор: Модераторы
function gui_getevent: tmseevent;
var
xev,xev2: xevent;
[..]
xnextevent(appdisp,@xev);
case xev.xtype of
[..]
mapnotify: begin
with xev.xmap do begin
result:= twindowevent.create(ek_show,xwindow);
if application.findwindow(xwindow,window1) and
(wo_notaskbar {-- user defined --} in window1.options) then begin
setnetatomarrayitem(xwindow,net_wm_state,net_wm_state_skip_taskbar); // <<< THIS COMMAND
end;
end;
end;
windowstyle:= windowstyle or ws_clipchildren;
if (transientfor <> 0) or (options * [wo_popup,wo_message,wo_notaskbar {--user defined--}] <> []) then begin
if transientfor <> 0 then begin // если запомнено к стэку какого окна логмчески относится,
ownerwindow:= transientfor; // то назначить это окно родитесльским
end;
id:= windows.CreateWindowex(windowstyleex,widgetclassname,nil,windowstyle,
rect1.x,rect1.y,rect1.cx,rect1.cy,ownerwindow{transientfor},0,hinstance,nil); // THIS COMMAND
А чем свойство у формы ShowInTaskBar не подходит?
А чем свойство у формы ShowInTaskBar не подходит?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 259