Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
28. Nov 2005
Danke, allgemein läuft es jetzt, aber wenn ich etwas editiere, wird sText schwarz markiert, wie kann ich das noch verhindern. Aber sonsten schon mal danke :-D
Es soll ja ein Highlighter werden, also habe ich in OnChange den Button aufruf drinnen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
28. Nov 2005
Ich weiß. Ich finde es 1. nicht so gut und 2. will ich es selber programmieren.
Wisst ihr warum bei diesem Code von mare_crisium nichts mehr markiert wird ?
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Click;
searchStart := 0;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Das RichEdit wird überall im Code als Memo1 benutzt, da es früher mal ein Memo war, jetzt ist es allerdings ein RichEdit.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Das läuft aber nicht ganz, es soll sich ja nur auf alle Wörter die 'START' heißen bezeiehen und man soll natürlich noch normal in Schwarz tippen können.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
procedure TForm1.Button1Click(Sender: TObject);
var StartPos, ToEnd, foundAt: integer;
suchText: String;
begin
suchText:='START';
foundAt := Memo1.findText(suchText,0,length(Memo1.text),);
if FoundAt <> -1 then
begin
Memo1.SetFocus;
Memo1.SelStart := FoundAt;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Ich benutze weil alle anderen Delphi-Versionen zu langsam sind auf einfach Delphi 7 Personal. Ist aber irgendwie nicht das selbe :gruebel:
Also in etwa so ?
if FindDialog1.FindText = 'START' then
begin
with Memo1.SelAttributes do
begin
Color := clRed;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Ich krieg da:
(C++ Beispiel)
(Delphi-Beispiel)
TCustomRichEdit
TFindDialog
TCustomRichEdit trifft wohl am ehsten zu. Und welchen COde kriege ich da ? Den oben !!
Die Beschimpfung ignoriere ich jetzt mal einfach.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Das zeigt mir Delphi an:
procedure TForm1.Button1Click(Sender: TObject);
begin
FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
:lol:
FindDialog1.Execute
Und das soll kein Dialog sein ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Ja das hab ich. Aber in der Delphi-Hilfe ist immernur vom FindDialog die Rede.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Ich will einen kleinen Code, der einfach sucht ohne irgendeinen Dialog anzuzeigen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
27. Nov 2005
Hi,
wie kann ich im RichEdit ein Wort finden und es farbig und fett markieren ? Mit SelAttributes markiere ich das gesuchte Wort zwar, aber wie finde ich es überhaupt ?