Forum: Sonstige Fragen zu Delphi
by Gandimann,
28. Okt 2011
Danke Sir Rufo für dein Antwort:
meinst du So...
procedure TForm1.btnCHECKClick(Sender: TObject);
var
indextext : integer ;
begin
case IndexText( ActiveMDIChild.ClassName, ) of
0 : ShowMessage( 'Ja, es ist eine Instanz von TForm1' );
Forum: Sonstige Fragen zu Delphi
by Gandimann,
28. Okt 2011
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