[solved for now] Form1 calling Form2 via Command-Line-param

[Zvoni]

Hi Folks,

program starts, code in the lpr Creates Form1, there with Menus i call Form2

So far, so good

Now i want to offer the option to start the program from the CLI with passing some options (e.g. "myapp.exe -report ODBC")

In the lpr i check HasOption and use GetOptionValue if True. Works!

BUT: How can i show Form2 only AFTER Form1 is completely painted?
I'm looking for something like "AfterShow"-Event.
NB: i already tried OnActivate of Form1, but for some unknown reason that one doesn't fire

Form2 is Modal with Form1 as Parent

Pseudo-code

Code: Pascal  [Select][+][-]

1. //in lpr
2. If Application.HasOption('r','report') Then Report:=Application.GetOptionValue('r','report');
3. Form1.Show;
4. //In Form1
5. If Report='ODBC' Then
6.         If Form1 is completely visbile Then Form2.ShowModal;
7.  

EDIT: Right, easy to workaround with a Timer set to 500, but..... seriously?
And i got Activate to fire. No idea what i did wrong in the first run

[MarkMLl]

I normally use something like this

Code: Pascal  [Select][+][-]

1. (* This is called when the wm_After_Show message is dequeued, which is
2.   guaranteed to be after form creation has completed.
3. *)
4. procedure TWatchxxxForm.OnAfterShow(afterShowParam: PtrInt);
5. ...
6.  
7. (* The form is being created, but sizes might not yet be known particularly if
8.   there's rescaling due to DPI variation.
9. *)
10. procedure TWatchxxxForm.FormCreate(Sender: TObject);
11.  
12. begin
13. ...
14.   if Screen.Width < 854 then            (* Last-ditch attempt to handle small   *)
15.     Width := 768;                       (* screens for support via VNC etc.     *)
16.   Application.QueueAsyncCall(@OnAfterShow, WatchxxxCodeMagicNumber) (* Keep at end *)
17. end { TWatchxxxForm.FormCreate } ;
18.  

But I don't know whether than delays until after everything has been displayed or just until everything has been created/initialised.

MarkMLl

[Zvoni]

Mark,

i take it the "WatchxxxCodeMagicNumber" is the WM_AFTER_SHOW?
You got a value for me?
All i could find was WM_AFTER_SHOW=WM_USER+1
I'd at least try it out

[MarkMLl]

Mark,

i take it the "WatchxxxCodeMagicNumber" is the WM_AFTER_SHOW?
You got a value for me?
All i could find was WM_AFTER_SHOW=WM_USER+1
I'd at least try it out

Sorry, no: it's just an arbitrary number which is checked at the point of consumption. In practice I use a datecode, declared private to the unit.

Back in the Delphi era that was a windows message, but when I started using Lazarus somebody suggested an asynccall instead.

There's a complete example at https://github.com/MarkMLl/Contec_cms50dplus/blob/main/cms50dplus4v6/cms50dpluscode.pas

MarkMLl