ClassType hakkında

[adelphiforumz]

Selamlar

Formun üzerinde bir panel var 
bu panel üzerinde parent olarak gösterilen başka bir form mevcut

parent olan formdaki bir nesnenin üzerinde Screen.ActiveForm.Name dedigimde ilk form adı görünüyor.
nesneyi alıp parentlarını tarayarak gittiğimde ise ClassType olarak TForm nesnesine ulaşamıyorum.
Bunun nedeni ne olabilir.

Teşekkürler

procedure TForm1.a1Click(Sender: TObject);
var
   _AControl : TControl;
 I : Integer;
begin
   _AControl := TControl(Edit1);
   while _AControl <> nil do
   begin
       _AControl := _AControl.Parent;
       ListBox1.Items.Insert(0, TControl(_AControl).Name);
       if _AControl is TForm then
       begin
         Break;
       end;
   end;

end;

[sabanakman]

Uses ile bağlandığınız unitlerde TForm isimli bir sınıf tanmladıysanız aynı isme sahip olsa da bu tamamen farklı bir sınıfa karşılık gelecektir. O yüzden "if _AControl is TForm then" kıyaslaması yapmak yerine "if SameText(_AControl.ClassName, 'TForm') then" (veya "if _AControl is Vcl.Forms.TForm then") kıyaslamasını yapmayı denyin (bknz..: http://www.delphican.com/interposer-clas...nilir.html).