Author: Tomas Rutkauskas

I have a component that is used both on an Active Form and on a normal TForm. The 
component needs to find out if the application it's being used in is an ActiveX 
project or a normal project. Is there a good way to find out?

Answer:

In case your component is TControl you can use the functions below:
1   
2   function IsParentFormActiveXOne(Control: TControl): Boolean;
3   function GetParentForm(Control: TControl): TCustomForm;
4   
5       function GetParentForm(Control: TControl): TCustomForm;
6       begin
7         Result := nil;
8         if Assigned(Control) then
9           if Control is TCustomForm then
10          begin
11            Result := Control as TCustomForm;
12            if Assigned(Result) and (Result is TForm) and 
13  						(TForm(Result).FormStyle = fsMDIForm) then
14            begin
15              Exit;
16            end;
17          end
18          else
19          begin
20            if Assigned(Control.Parent) then
21              Result := GetParentForm(Control.Parent);
22          end;
23      end;
24  
25      function IsParentFormActiveXOne(Control: TControl): Boolean;
26      var
27        Form: TCustomForm;
28      begin
29        Form := GetParentForm(Control);
30        Result := Assigned(Form) and (Form is TCustomActiveForm);
31      end;
32  
33  //Otherwise simply use:
34  
35  if TCustomForm(Owner) is TCustomActiveForm then
36    { ... }