delphi - How make Form2 never be resized for down? -


i have code puts 2 forms side side , works fine, can see when i'm resizing form1, form2 resized, resized down.

so, how make form2 no resize down (since form1 greater form2) when form1 resized?

following code used put 2 forms side side:

unit unit1;  interface  uses   winapi.windows, winapi.messages, system.sysutils, system.variants, system.classes, vcl.graphics,   vcl.controls, vcl.forms, vcl.dialogs, vcl.stdctrls;  type   tform1 = class(tform)     button1: tbutton;     procedure button1click(sender: tobject);     procedure formclose(sender: tobject; var action: tcloseaction);  // close on close     procedure formresize(sender: tobject);  // maximized, minimized etc   private     { private declarations }   public     { public declarations }     procedure wmmoveform(var amessage: twmmove); message wm_move;    // lip form2 main on form size changed     procedure wmsizemove(var amessage: twmsize); message wm_sizing;  // lip form2 main on form move   end;  var   form1: tform1;  implementation  {$r *.dfm}  uses unit2;      procedure tform1.button1click(sender: tobject);     begin         form2.show();     end;       procedure tform1.formclose(sender: tobject; var action: tcloseaction);     begin         if action = cafree form2.close;     end;      procedure tform1.formresize(sender: tobject);     begin         form2.visible := self.windowstate <> wsmaximized;         if form2.visible             form2.windowstate := self.windowstate; {        case self.windowstate of             twindowstate.wsnormal:  postmessage(form2.handle, wm_syscommand, sc_minimize, 0);             twindowstate.wsminimized: postmessage(form2.handle, wm_syscommand, sc_minimize, 0);             twindowstate.wsmaximized: postmessage(form2.handle, wm_syscommand, sc_restore, 0);         end;}     end;      procedure tform1.wmmoveform(var amessage: twmmove);     begin         if assigned(form2) , form2.visible         begin             form2.top := self.top;             form2.left := self.left + self.width;         end;         inherited;     end;      procedure tform1.wmsizemove(var amessage: twmsize);     begin         if form2.visible         begin             form2.top := self.top;             form2.left := self.left + self.width;             form2.height := self.height;         end;         inherited;     end;  end.

if 'resize down' means resize vertically remove

form2.height := self.height;

from

procedure tform1.wmsizemove(var amessage: twmsize);

Comments

Post a Comment

Popular posts from this blog

resizing Telegram inline keyboard -

telegram's inline keyboard great feature lots of different use cases. inline buttons added list of items this: inline_keyboard = [[inlinekeyboardbutton(text="button", callback_data="button"), inlinekeyboardbutton(text="reset",callback_data="reset")]] inline_keyboard_markup = inlinekeyboardmarkup(inline_keyboard) update.message.reply_text("hi", reply_markup=inline_keyboard_markup) the above code adds 2 buttons each half width of chat screen. i know the normal keyboard button there resize_keyboard parameter somehow can used. my question is there way resize inline buttons ? example make full width or quarter width. unfortunately, can't now. :( you can suggest @botsupport , might add feature next version.
Read more

command line - How can a Python program background itself? -

consider following python command-line program. doesn't work because incomplete, think illustrates problem: #!/usr/bin/python3 import multiprocessing pool = multiprocessing.pool() task in expensive_iterator_with_user_interaction(): pool.call_async(expensive_computation, (task,)) pool.close() print("dear user, may press ctrl-z , bg script.") pool.join() thus, problem scripts needs user input while it's launching expensive parallel processes. there moment when user interaction not needed anymore. then, ask user background process shell actions. however, can achieved program itself? (side note: core of problem entanglement of user input firing “expensive computations”. therefore, cannot separate both in 2 scripts, , letting 1 spawning other daemon.) the command screen may you. use screen -l create new session , run application. after inputting data, can press " ctrl-a " , press " d " on keyboard detach session. now...
Read more

php - "cURL error 28: Resolving timed out" on Wordpress on Azure App Service on Linux -

Image
my wordpress installation on azure app service on linux using custom docker container has slow response times. pages take around 20-40 seconds load. i have troubleshooting plugin installed indicates problem "curl error 28: resolving timed out after n milliseconds" when making requests following urls https://api.wordpress.org/core/version-check/1.7/ http://api.wordpress.org/core/version-check/1.7/ https://api.wordpress.org/plugins/update-check/1.1/ http://api.wordpress.org/plugins/update-check/1.1/ https://api.wordpress.org/themes/update-check/1.1/ http://api.wordpress.org/themes/update-check/1.1/ curl works fine on scm-site command line. example works ok. curl -x post http://api.wordpress.org/core/version-check/1.7/ edit if ssh container , run php code, works fine. <?php $url = 'http://api.wordpress.org/core/version-check/1.7/'; $fields = array( 'version' => urlencode('4.8.1'), 'php' => urlencode(...
Read more