StringReplace im MDIChild klappt nicht!

[Grolle]

Hallo!
Ich habe ein Problem mit Stringreplace in einem Childfenster. Der Quelltext:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if ActiveMDIChild <> nil then
    begin
      if (Checkbox1.Checked) and (Checkbox3.Checked) then
        begin
          TMDIChild(ActiveMDIChild).SynEdit1.SelText :=
          StringReplace(TMDIChild(ActiveMDIChild).SynEdit1.SelText,Edit1.Text,Edit2.Text,[rfReplaceAll]);
        end

Der Quelltext liegt auf einer anderen Form. Das Childfenster verliert beim Aufruf
den Focus. Geht das deswegen nicht? Wie kann ich das ändern?

[sh17]

Wenn das Childfenster den Focus verliert und ActiveMDIChild das aktuelle sein soll, dann wirds so wohl nicht gehen.

Ist das betreffende Childfenster denn nicht irgendwo über eine Variable referenziert?

Ich nehm mal an, es gibt mehrere ChildFenster und nur eine TForm3.
Dann leg doch eine Variable MyActiveMDIChild an und setzt sie, wenn betreffendes Childfenster aktiv ist. So weist Du nach verlorenem Focus, welches das letzt Childfenster war.

[bigg]

Hi,

ich schätze mal TForm3 ist nicht dein Hauptformular, oder?
Robert_G und ich haben das Thema vor kurzem erst durchgekaut:
http://www.delphipraxis.net/internal...ct.php?t=66716

[Robert_G]

Wenn ich mich recht entsinne, ist MdiChildren[0] das zuletzt aktivierte ChildForm.
Somit könntest du also statt ActiveMdiChild, MdiChildren[0] probieren.
Ist dein Such dialog ebenfalls ein MdiChild wäre es demnach MdiChild[1], aber hier fängt dann das Gefrickel an... :mrgreen:

btw: Ich habe MDI+VCL vor Äonen das letzte Mal ngefasst, deshalb wäre ich nicht überrascht, dass sich das oben geschriebene als nett gemeinter Bullshit entpuppt. ;)

[Grolle]

@ Robert_G
Schade, klappt leider nicht. Wäre sehr schön einfach gewesen :stupid:

Die anderen Vorschläge teste ich später mal....

Danke

[bigg]

Hi Grolle,

rate mal, warum ich einen Link dazu gepostet habe, den du dir natürlich nicht
durchgeslesen hast?

Du rufst die Funktionen innerhalb von TForm3 auf, lässt aber gleichzeitig
die Formularbezeichner weg, somit schreibt der Compiler:

Delphi-Quellcode:

Form3.ActiveMDiChild.Eigenschaft;

Und Form3 ist mit Garantie nicht dein Hauptforumlar, oder?
Bitte im Thread von oben weiterlesen... :angel2:

[Grolle]

Hi Bigg!

Ich habe jetzt alles gelesen. Hat dann aber immer noch nicht geklappt und zwar:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if ActiveMDIChild <> nil then  // Zu diesem Zeitpunkt kann kein aktives MDIChild existieren,
    begin                        // weil -> Form3 ist aktiv!
      if (Checkbox1.Checked) and (Checkbox3.Checked) then
        begin
          TMDIChild(ActiveMDIChild).SynEdit1.SelText :=
          StringReplace(TMDIChild(ActiveMDIChild).SynEdit1.SelText,Edit1.Text,Edit2.Text,[rfReplaceAll]);
        end

Die Abfrage kommt jetzt direkt beim Aufruf von Form3 und nicht erst wenn man
auf den Button klickt.

Viele Grüße....

[bigg]

Hi Grolle,

du machst noch immer den selben Fehler.
Im Bild unten sind diese Fehler deutlich gekennzeichnet.

PS: Du schreibst übrigens sehr umständlich.
Wozu zwei TypeCasts? Einer tut es doch auch!


mfg bigg

[Grolle]

Hi!
Nein, ich habe den Fehler nicht nochmal gemacht. Ich habe den Source oben
aus dem Beitrag rauskopiert. Der war natürlich noch falsch. :oops:

Viele Grüße

[bigg]

Ist dein Problem denn damit nun gelöst?