Fortschrittsanzeige in RichEdit?

[Progman]

Vielleicht als Denkanstoß:
Auf dem Canvas eines RichEdit kann man auch zeichnen. Jedenfalls beim TJvRichEdit klappt das. Vielleicht mal in die Richtung experimentieren?

[Yakumo500]

@sx2008: Ich möchte die Fortschrittsanzeige ja auch für den Dateitransfer nutzen und nicht für die einzelnen Chat-Nachrichten.
@Progman: Danke das werde ich mal probieren.
//Edit: Bei mir existiert beim TJvRichEdit das Canvas nicht!

[Yakumo500]

Hat denn hier noch niemand ein OLE Objekt erstellt?

[cxy]

var progbar:Tprogressbar;

progbar:=tprogressbar.Create(SELF);
progbar.Visible :=true;
progbar.Left :=0;
progbar.Top :=0;
progbar.Height :=100;
progbar.Width :=100;
progbar.ParentWindow:=richedit1.Handle;

else

[Sir Rufo]

Mit Delphi-Tags sieht das viel hübscher aus

Delphi-Quellcode:

var  progbar:Tprogressbar;

  progbar:=tprogressbar.Create(SELF);
  progbar.Visible :=true;
  progbar.Left :=0;
  progbar.Top :=0;
  progbar.Height :=100;
  progbar.Width :=100;
  progbar.ParentWindow:=richedit1.Handle;