ProgramOutputUnit.pas 676 B

123456789101112131415161718192021222324252627282930313233
  1. unit ProgramOutputUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. ExtCtrls, MemoComponentUnit;
  6. type
  7. TProgramOutputForm = class(TForm)
  8. OutputMemo: TMemoComponent;
  9. ErrorMemo: TMemoComponent;
  10. Splitter: TSplitter;
  11. Panel1: TPanel;
  12. Panel2: TPanel;
  13. procedure FormShow(Sender: TObject);
  14. private
  15. public
  16. end;
  17. implementation
  18. {$R *.DFM}
  19. procedure TProgramOutputForm.FormShow(Sender: TObject);
  20. begin
  21. OutputMemo.Selection.RStart := OutputMemo.TextLength + 1;
  22. OutputMemo.Selection.ScrollInView (0);
  23. ErrorMemo.Selection.RStart := ErrorMemo.TextLength + 1;
  24. ErrorMemo.Selection.ScrollInView (0);
  25. end;
  26. end.