Wort gefunden und markiert!

[Matze]

Hast du dir den Code von Manuel genau angesehen? Er hat ein zusätzliches "begin" und "end" eingefügt. Dann werden beide Anweisungen nur dann ausgeführt, wenn die if-Abfrage zutrifft.

Dein bisheriger Code wird so interpretiert:

Delphi-Quellcode:

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  if SearchForText_AndSelect(RichEdit1, 'Whisper') then
  begin
    label33.caption := 'You Got A Whisper';
  end;

  form1.Width := 952; // wird immer ausgeführt, ob  "if" zutrifft oder nicht
end;

Grüße, Matze