unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,
Unit20, Unit21, Unit22, Unit23, Unit24, Unit25, Unit26, Unit27, Unit28,
Unit29, Unit30, Unit31, Unit32, Unit33, Unit34, Unit35, Unit36, Unit37,
Unit38, Unit39, Unit40, Unit41, Unit42, Unit43, Unit44, Unit45, Unit46,
Unit47, Unit48, Unit49, Unit50, Unit51, Unit52, Unit53, Unit54, Unit55,
Unit56, Unit57, Unit58, Unit59, Unit60, Unit61, Unit62, Unit63, Unit64,
Unit65, Unit66, Unit67, Unit68, Unit69, Unit70, Unit71, Unit72, Unit73,
Unit74, Unit75, Unit76, Unit77, Unit78, Unit79, Unit80, Unit81, Unit82,
Unit83, Unit84, Unit85, Unit86, Unit87, Unit88, Unit89, Unit90, Unit91,
Unit92, Unit93, Unit94, Unit95, Unit96, Unit97, Unit98, Unit99, Unit100,
Unit101, Unit102, Unit103, Unit104, Unit105, Unit106, Unit107, Unit108
;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
objs:String;
objf:TComponent;
begin
objs:='Form'+Edit1.Text;
objf:=FindGlobalComponent(objs);
if objf<>nil then
TForm(objf).Show;
end;
end.