Finddialog/Replacedialog

Tags:    delphi

Jeg har kan ikke få finddialog og replacedialog til at finde ord i min Richedit er der nogen der kan hjælpe?????[Redigeret d. 08/02-03 12:09:30 af Jonas]



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Jeg har kan ikke få finddialog og replacedialog til at finde ord i min Richedit er der nogen der kan hjælpe?????[Redigeret d. 08/02-03 12:09:30 af Jonas]


Denne kode skal sættes ind i din Find knap:
<pre>
begin
FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
FindDialog1.Execute;
end;
</pre>

Denne kode skal sættes ind i Finddialog Onfind:
<pre>
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin
if SelLength <> 0 then

StartPos := SelStart + SelLength
else

StartPos := 0;

ToEnd := Length(Text) - StartPos;

FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end;
</pre>

Så skal du selvfølgelig ændre FindDialog1, hvis det hedder noget andet :)

NB: Dette var kun til Finddialog!!

MVH.
ALA
http://alawork.dk




Du finder Finddialog OnFind ved at klikke på komponentet Finddialog og derefter nede i ObjectInspector kan du se en fane der hedder : "Events". Der klikker du og du vil kunne finde OnFind der :)

MVH.
ALA




t