Access Self from With statement

[GreatCorn]

So I'm programming with TComponents and in my case, the TComponent's... type can be specified by the user. Right now I'm trying to find a way to create a form. I have a TComponent variable (let's say component), and using

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

1. with component as TForm do

lets me configure the form, but I am unable to pass the variable itself as a TForm to Application.CreateForm. Using Self isn't allowed there and I just can't figure anything out...

[MarkMLl]

Can't be done. You have to repeat yourself.

There's been sporadic discussion of introducing a placeholder so that the referent of with is accessible by name, but they've not got anywhere due to hostility to the with construct and the fact that with can both cause the compiler to do unexpected things and make it very difficult for the source to be followed.

MarkMLl

[BeniBela]

This works:

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

1. {$ModeSwitch typehelpers}      
2.  
3. type TFormHelper = type helper for TForm
4.   function Self: TForm;
5. end;
6.  
7. function TFormHelper.Self: TForm;
8. begin
9.   result := self
10. end;
11.  
12.  
13. procedure x(f: TComponent);
14. begin
15.   with f as TForm do begin
16.     self.caption := 'x';
17.   end;
18. end;        
19.  

Not sure how stable it is

[Warfley]

For such things I simply use a (nested) function:

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

1. procedure DoStuffWithTheForm(AForm: TForm);
2. ...
3.  
4.   if component is TForm then DoStuffWithTheForm(TForm(component));

[winni]

Hi!

That is the way for your strange desire :

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

1. procedure TForm1.Button1Click(Sender: TObject);
2.  var Form2 :   TForm1;
3.  c : TComponent;
4. begin
5. Application.CreateForm(TForm1, TForm(c));
6. TForm(c).show;
7. end;
8.  

Winni

[GreatCorn]

Turns out I was just stupidly doing everything in the wrong order. I had to Application.CreateForm first and then assign the TForm properties (with component as TForm do). I put Application.Initialize; and Application.CreateForm(TForm, component); first and then did the assigning and everything worked. I didn't even need to typecast component to TForm. Thanks everyone for your time

[MarkMLl]

My apologies for focussing more on the language construct than on what turned out to be a problem with your use of the LCL.

MarkMLl