delphi - Create FMX window with MessageBox style -


i have question: how can create fmx window make looks showmessage window?

showmessage (contain move , close items):

enter image description here

fmx window: 

bordericons := [tbordericon.bisystemmenu]; borderstyle := tfmxformborderstyle.single;

enter image description here

what need: remove icon , delete disabled menu items

on windows, showmessage() displays system dialog using win32 api messageboxindirect() function.

to customize default system menu of standard fmx form, have drop down win32 api layer , manipulate system menu directly. means getting hwnd of form (you can use formtohwnd() function in fmx.platform.win unit) , use win32 api getmenu() , deletemenu() functions.

to remove form's icon, use win32 api sendmessage() function send hwnd wm_seticon message lparam set 0. or use setwindowlongptr() enable ws_ex_dlgmodalframe window style.

override form's virtual createhandle() method perform these operations, eg:

interface  ...  type   tform1 = class(tform)     ...   {$ifdef mswindows}   protected     procedure createhandle; override;   {$endif}     ...   end;  implementation  {$ifdef mswindows} uses   windows; {$endif}  ...  {$ifdef mswindows} procedure tform1.createhandle; var   wnd: hwnd;        menu: hmenu;   exstyle: long_ptr; begin   inherited;   wnd := formtohwnd(self);    menu := getmenu(wnd);   deletemenu(menu, sc_tasklist, mf_bycommand);   deletemenu(menu, 7, mf_byposition);   deletemenu(menu, 5, mf_byposition);   deletemenu(menu, sc_maximize, mf_bycommand);   deletemenu(menu, sc_minimize, mf_bycommand);   deletemenu(menu, sc_size, mf_bycommand);   deletemenu(menu, sc_restore, mf_bycommand);    sendmessage(wnd, wm_seticon, icon_small, 0);   sendmessage(wnd, wm_seticon, icon_big, 0);    exstyle := getwindowlongptr(wnd, gwl_exstyle);   setwindowlong(wnd, gwl_exstyle, exstyle or ws_ex_dlgmodalframe);   setwindowpos(wnd, 0, 0, 0, 0, 0, swp_nomove or swp_nosize or swp_nozorder or swp_framechanged); end; {$endif}  ...  end.

Comments

Post a Comment

Popular posts from this blog

javascript - Clear button on addentry page doesn't work -

this addentry blog page have made scratch , there underlying problems code particularly clear button supposed clear text entered when button clicked on doesn't work have saved html file problem. also 1 other problem submit button works doesn't pass of text index file have written php , reason whenever click on submit button redirects me index page without posting entry have made. <!doctype html> <html> <head> <script> function message() { alert("clear form?"); } </script> <style> body {background-color: beige;} h1 {color: black;} p {color: black;} textarea { width: 50%; height: 150px; padding: 12px 20px; box-sizing: border-box; border: 2px solid #ccc; border-radius: 4px; background-color: white; font-size: 16px; resize: none; } div { padding-left: 20px; } </style> </head> <meta charset="utf-8"> <link rel="stylesheet" href=".
Read more

c# - Selenium Authentication Popup preventing driver close or quit -

i have selenium automated task setup login website retrieve information. it's basic in automation. logging in , clicking 2 links. running issue proving problem. the site in question uses authentication required popup not javascript popup rather regular windows auth popup. have read isn't handled out of box selenium. i using " http://username:password@url.com " site every , site has issues on end prompt me again username/password randomly. have enter username/password twice in row when navigating there hand. since task loops continuously few hours picking needed info figured use webdriverwait verify element present on page. if authentication popup appears, element isn't present. no need care run, start over. the problem having when authentication popup displayed , hit timeout limit want close driver/browser window can start task on again. however, driver.close() , driver.quit() not doing anything. browser remains open , unloaded page still there login p
Read more

tensorflow when input_data MNIST_data , zlib.error: Error -3 while decompressing: invalid block type -

i'm geting started tensorflow,followed tutorials,but cannot download mnist data. import tensorflow tf tensorflow.examples.tutorials.mnist import input_data mnist=input_data.read_data_sets("mnist_data/",one_hot=true) print("download done!") error information: extracting mnist_data/train-images-idx3-ubyte.gz traceback (most recent call last): file "/home/sj/program/tesorflow_try.py", line 6, in <module> mnist=input_data.read_data_sets("mnist_data/",one_hot=true) file "/usr/local/lib/python2.7/dist-packages/tensorflow/contrib/learn/python/learn/datasets/mnist.py", line 213, in read_data_sets train_images = extract_images(f) file "/usr/local/lib/python2.7/dist-packages/tensorflow/contrib/learn/python/learn/datasets/mnist.py", line 60, in extract_images buf = bytestream.read(rows * cols * num_images) file "/usr/lib/python2.7/gzip.py", line 268, in read self._read(readsize) file
Read more