[Solved] Setting form focus

[madref]

i am keeping track of which form are being shown on my screen. I use the following array to keep track of them

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

1. type
2.   TMyForms  = record
3.                 Index: Integer;
4.                 Naam: string;
5.               end;  // TMyForms
6.  
7.  
8. var MyForms: Array [0..9] of TMyForms;

How can i now set the form that is stored in my MyForms when the index is lets say 2.

[jamie]

SetFocus ?

[madref]

can't get  that to work


Is there a way to set the focus of a named form instead of using the index?

[TRon]

i am keeping track of which form are being shown on my screen. I use the following array to keep track of them
...
How can i now set the form that is stored in my MyForms when the index is lets say 2.

What does that mean, set the form ? If you do not know the correct terminology then try to describe what it is that you want to happen for that say form 2.

[madref]

Oke let's try that again


the steps i am taking to open several forms.
open forrm 1
store in MyForms as [0, 'Form1']


Open form 2
Store in MyForm as [1, 'Form2']


Open form 3
Sore in MyForm as [2, 'Form3']


do some stuff on form 3 and then use a question form [Just a simple yes or no] to close form 3


Now i want to set the active form to form 2.
HOW DO I DO THAT?

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

1.   Screen.Forms[LintIndex].SetFocus;
2.  

does not work


Also read this https://forum.lazarus.freepascal.org/index.php/topic,68046.0.html

[Handoko]

I can think of 2 possibilities, which one do you want?

For example, this is already in the array:
[0, 'Form1']
[1, 'Form2']
[2, 'Form3']
[4, 'Form4']

User does not close Form4 but clicks the Form2. Which result do you want?

Result1:
[0, 'Form1']
[1, 'Form2']
[2, 'Form3']
[4, 'Form4']
[5, 'Form2']

Result2:
[0, 'Form1']
[1, 'Form3']
[2, 'Form4']
[3, 'Form2']

I saw you're not using dynamic array, so my guess you want Result2. I am not saying Result1 is better, each one has its own advantages, disadvantages and its use case. Is it correct, Result2 is what you want? Or maybe something else?

[madref]

Indeed result 2

[alpine]

Indeed result 2

What do you mean by 'Open form'? Form.Show? Are your forms auto-created or you create them explicitly?

[madref]

It doesn't matter how the forms are created.
The forms are open and on the screen.
I just need to get them refocused in the right order.
And THAT is my problem.


Everytime you do a xxx.Show the order that lazarus uses is the WRONG order for my app

[madref]

Ideally you would open a form (1) and when you open another form (2) the other form (1) becomes inaccessible.


But unfortunately lazarus does not work that way so I have to find a work around and that is what this is all about

[alpine]

Ideally you would open a form (1) and when you open another form (2) the other form (1) becomes inaccessible.

Form2.ShowModal?

[cdbc]

Hi
How about keeping your forms(references) in some sort of list, instead of an array, that way, when the user selects a form, you can utilize the 'Move' method of said list, to relocate the form-ref to the last element in the list.
When it's 'quit'in' time, you just do

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

1. for i:= aList.Count-1 downto 0 do aList[i].Free;

So, during runtime it acts like a list(with stack-like properties) i.e.: doesn't remove when selected. And by freeing, it acts purely like a stack, popping of the latest...
Regards Benny
edit: added code-tags... Sorry.

[madref]

That's the whole thought of the array

[cdbc]

Hi
Using a list, you get the (well tested) 'Move' implementation for free 
Regards Benny

[madref]

i am keeping track of which form are being shown on my screen. I use the following array to keep track of them

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

1. type
2.   TMyForms  = record
3.                 Index: Integer;
4.                 Naam: string;
5.               end;  // TMyForms
6.  
7.  
8. var MyForms: Array [0..9] of TMyForms;

I think we all agree here that the method is ok.

But now the hard part making it work