stringabschnitte einfärben

[patti]

Jup. Sobald du Text zu deinem RichEdit hinzufügst (mit RichEdit1.Lines.Add(...)) das SendMessage aufrufen. Er scrollt dann nach unten!

Edit: Cool, mein 222. Beitrag

[matze222]

ich versteh noch nich wo genau ich das im quellcode einfügen soll^^
sry
einfach wenn man auf richeditfeld (da wo ich die probleme hab) doppelklick macht oder wo?

[patti]

Soweit ich dich verstanden habe, hast du einen Button auf deinem Formular. Wenn auf diesen geklickt wird, wird ein bestimmter Text in das RichEdit geschrieben. Dies tust du wahrscheinlich mit

RichEdit1.Lines.Add('Dein Text'); Darunter musst du dann

SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0); aufrufen, damit dein RichEdit scrollt.

[matze222]

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
begin
           begin
        if (richedit1.Lines.text>'') then

        richedit2.Lines.Text:=richedit2.Lines.Text+#13#13+#10+edit1.text+' sagt:               '+#13+#10+'  '+richedit1.Lines.Text;

        richedit1.Lines.text:='';

        RichEdit2.SelStart  := length(richedit2.text);
        RichEdit2.SelLength := 25;
        RichEdit2.SelAttributes.Color := clblack;

        RichEdit2.SelStart  := length(richedit2.text)+25;
        RichEdit2.SelLength := length(richedit1.Text);
        RichEdit2.SelAttributes.Color := colorbox1.selected;
         SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
    end;
end;

so sieht das bei mir aus...
wie du siehst hab ich das einfach darunter gesetzt...
nur jetz is der text auf der rechten seite und die scrollbar immer noch obn^^

[patti]

Ersetze mal das "RichEdit1" in

SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0); durch RichEdit2, also:

SendMessage(RichEdit2.Handle, WM_VSCROLL, SB_BOTTOM, 0); Ich weiß leider nicht genau, welches RichEdit bei dir für was zuständig ist. In RichEdit2 kommt der Text rein und da bleibt der Scrollbalken oben, oder? Oder gibt es ein Problem mit RichEdit1?

[matze222]

nene mit 2
thx

[matze222]

cool klappt

thx

[patti]

Kein Problem