Код:
Add(MainForm,2953706,154,105) { BorderStyle=0 } Add(Button,13935882,84,56) { Left=10 Top=25 Caption="Set" link(onClick,15928427:doSetForm,[]) } Add(InlineCode,15928427,154,56) { WorkPoints=#9:doSetForm| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|20: fHWND: Thandle;|9: public|51: procedure doSetForm(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|32:procedure THiAsmClass.doSetForm;|5:begin|24: fHWND := ReadHandle();|25: if fHWND = 0 then Exit;|36: Applet.WindowState := wsMinimized;|42: // устанавливаем родителя рабочим столом|48: SetParent(fHWND, GetParent(GetDesktopWindow));|28: ShowWindow(fHWND,SW_SHOW);|34: // устанавливаем в размер экрана|68: SetWindowPos(fHWND,HWND_TOPMOST,0,0,ScreenWidth,ScreenHeight,0); |10:end; |0:|4:end.| } Add(Button,7372434,84,105) { Left=10 Top=55 Caption="Exit" link(onClick,2953706:doClose,[(135,111)(135,132)]) }