CASE Statement of ActiveMDIChild

[Gandimann]

Hi Friends,
eine dämliche Frage statt If Anweissung möchte ich mit CASE anweisung arbeiten damit komme ich aaaber leider nicht weiter ...
könnt Ihr bitte mir wegweisen...

DELPHI XE :

Problem:
anstatt diese Befehle:

if activeMDIchild(Form1) then
begin
...
End;
if activeMDIchild(Form2) then
begin
...
End;

MÖCHTE ich CASE Befehl wie folgt benutzen ..

procedure TForm1.btnCHECKClick(Sender: TObject);

begin

case ActiveMDIChild of
form2:ShowMessage('Form2 is active');
form3 : ShowMessage('Form3 is active');
form4 : ShowMessage('Form4 is active');
end;



es geht aber nicht...wink:

--------
Beispiel Project habe ich dran gehängt ...

DEanke im Voraus
Gandimann