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

python - Error: Unresolved reference 'selenium' What is the reason? -

# -*- coding: utf-8 -*- selenium import selenium import unittest, time, re class rc(unittest.testcase): def setup(self): self.verificationerrors = [] self.selenium = selenium("localhost", 4444, "*chrome", "http://stackoverflow.com/") self.selenium.start() def test_rc(self): sel = self.selenium sel.open("/") sel.type("id=kw", "selenium") sel.click("id=container") sel.click("id=su") def teardown(self): self.selenium.stop() self.assertequal([], self.verificationerrors) if __name__ == "__main__": unittest.main() this recorded selenium ide, selenium remote control code. in ide test passed.   in pycharm open, first line ( from selenium import selenium ) there error: unresolved reference 'selenium' what reason? my environment is python3.5 selenium3.3.1 selenium-server-standalone-...
Read more

ios - Pass NSDictionary from Javascript to Objective-c in JavascriptCore -

i'm using javascriptcore in app. now, i'm passing variables jscontext can passed objective-c. however, 1 of variables, nsdictionary, not passing through correctly. run code below: var evaluate = function(variables) { app.setdictionary(variables.dictionary); } this simple example has these following methods set in jscontext . this setdictionary() method: - (void)setdicationary:(nsdictionary *)dictionary { self.mutabledictionary = [dictionary mutablecopy]; } this variables.dictionary : - (nsdictionary *)dictionary { return self.values; } and how call evaluate() : jsvalue *jsfunction = self.context[@"evaluate"]; jsvalue *value = [jsfunction callwitharguments:@[self.variables]]; however, in setdictionary method, don't nsdictionary, instead nsstring containing [object object] . any ideas how can solve this? although javascriptcore automatically converts types between objective-c or swift , javascript, suggest implement ex...
Read more