Fortschrittsanzeige in RichEdit?

[Sora]

Hi,

wenn du beides in einer Komponente haben willst musst du eine neue Komponente erstellen, vlt. so in dieser Art:

Delphi-Quellcode:

type
  tMyRichEdit = class(tRichEdit)
  private
    FProgressBar: TProgressBar;
    ...
  protected ...
  public ...
  published
    ProgressBar: TProgressBar READ FProgressBar; //WRITE FProgressBar;
    ...
  end;

Und für den Fortschrittsbalken (so in der Art):

Delphi-Quellcode:

procedure SetProgressBar(Send, Total: double);
begin
  MyRichEdit1.ProgressBar.Position:=round(100* Send/Total);
end;

Ich hoffe, dass ich dein Problem richtig verstanden habe und dir helfen konnte.

Liebe Grüße


Sora

EDIT: Stimmt Sir Rufo, READ+WRITE ist für mich einfach Standard und ich habe nicht dran gedacht, dass nur ein READ gesetzt werden darf. Entschuldigung.