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