How to create an Object given its name and its class name?

[dohamsg]

Hi,

Here is a link to a sample code implementing a user interface ( SDI, because MDI is confusing for many users ).

At the event : FormShow of the Main Form, I don't know how to restore the last embedded form, using its name and its Class name; any suggestions will be appreciated.

http://rapidshare.com/files/139302098/UserInterfaceGoodPractices.rar.html

NB. the project uses only native delphi 2007 components.

Thanks.

 

[roo0047]

I know this not where to put it but might be what you're looking for:

procedure TfrmMain.FormShow(Sender: TObject);
begin
  with Sender as TForm do
    ShowMessage('Sender is ' + Sender.ClassName);

Roo
Delphi Rules!

 

[donvittorio]

I haven't actually downloaded your code to look at, but in the FormShow you can use FindComponent to find a form if you know its name. FindComponent returns a TComponent, so you will need to cast the result to TForm (or whatever type you expect)

e.g.

procedure TMainForm.FormShow(Sender: TObject);
var
  frmLastForm: TForm;
begin
  frmLastForm := Application.FindComponent('EmbeddedForm1') as TForm;
end;