Einzelnen Beitrag anzeigen

Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#7

Re: StringReplace im MDIChild klappt nicht!

  Alt 7. Nov 2005, 00:10
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....

  Mit Zitat antworten Zitat