• Registered: 2014-09-06
  • Posts: 805

Topic: How to Hide About from the Beggining Form

Hi,
how is it possible to hide from the first form the "About"


Bets Regards

  • Registered: 2014-02-14
  • Posts: 10,294

Re: How to Hide About from the Beggining Form

Hello,


You can do it using a script:

begin
     Form1.mniAbout.Visible := False;
end.
Dmitry.

3 Reply by tcoton (edited by tcoton 2015-01-27 13:02:42)

  • Registered: 2014-06-25
  • Posts: 863

Re: How to Hide About from the Beggining Form

Hi, there is a bug in 1.48:

If I use the above mentionned trick to hide whether one default menu or all of them, my query for memo does not work anymore!! [ Edit--- if I put it before the SQL execution, if I put it after the SQL execute, the SQL works but the menus are not hidden]


// Display History with select in database
procedure History_OnShow (Sender: string; Action: string);
begin
History.MemoHistory.Text := SQLExecute('SELECT history FROM History WHERE id=1');
History.MemoHistory.ScrollBars := ssVertical; // The component has a single scroll bar on the right edge.
end;

Once I re-enable the menu, the memo return the result!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: How to Hide About from the Beggining Form

All code after "end." will not run


Your code should look like this:

// Display History with select in database
procedure History_OnShow (Sender: string; Action: string);
begin
   History.MemoHistory.Text := SQLExecute('SELECT history FROM History WHERE id=1');
   History.MemoHistory.ScrollBars := ssVertical; // The component has a single scroll bar on the right edge.
end;

begin
     Form1.mniAbout.Visible := False;
end.
Dmitry.
  • Registered: 2014-06-25
  • Posts: 863

Re: How to Hide About from the Beggining Form

Thanks Dmitry, there was some kind of mess in my code... still learning smile