Hallo,
damit klappt's leider nicht (wobei natürlich nicht auszuschließen ist, dass ich mal wieder was falsch gemacht habe).
Also:
Der Text wird wie folgt selektiert:
Delphi-Quellcode:
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with ResultEdit do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, []);
if FoundAt <> -1 then
begin
ResultEdit.SetFocus;
ResultEdit.SelStart := FoundAt;
ResultEdit.SelLength := Length(FindDialog1.FindText);
end
else
Showmessage('Unable to find');
end;
end;
(aus der
OH)
Ich habe jetzt versucht, die von Dir genannten Zeilen einzubinden, aber leider zeigt das gar keinen Effekt. Hast Du einen Tipp, wo ich die Anweisungen wie einbinden kann?
Danke
Opa