Memo nesnesinın scrollbar pozisyonları

[z]

Form üzerine 2 tane memo nesnesi koydum.

Memo1 dikey kaydırma çubuğunu hareket ettirdiğimde Memo2 dikey kaydırma çubuğu da aynı şekilde hareket etsin dolayısı ile her iki memo nesnesi de aynı satırları göstersin istiyorum.

Bu işi nasıl yaparım?

[power20]

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private

    procedure Memo1WindowProc(var Message: TMessage);
  public
    { Public declarations }
  end;

var
  OldMemoProc: TWndMethod;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldMemoProc := Memo1.WindowProc;
  Memo1.WindowProc := Memo1WindowProc;
end;

procedure TForm1.Memo1WindowProc(var Message: TMessage);
begin
  OldMemoProc(Message);
  if (Message.Msg = WM_VSCROLL) or (Message.Msg = WM_Mousewheel) then
    Memo2.WindowProc(Message);
end;

end.

[z]

Tesekkurler Kilic.

Bir sorum daha olacak.

Memo1 icine bir text atip ardindan satirlar mesela 10.satirdan itibaren gosterilsin istersem nasil yapacagim?

Yani ekranda gorunen ilk satiri kod icinden belirlemek istiyorum.

[power20]

Memo1.Perform(EM_LINESCROLL,0,10);

[Epsilon]

* @Kılıç bu hareketli ekran görüntüsünü nasıl oluşturup eklediniz.(video capture yazılımını yani)

[power20]

Super Screen Recorder ile ekranı .avi olarak kaydettim.
Movavi Video Editor 15 Business ile avi'yi gif'e çevirdim

[gkimirti]

licecap ile doğrudan ekran görüntüsünü gife çevirebilirsiniz.
https://www.cockos.com/licecap/

[Epsilon]

licecap ile doğrudan ekran görüntüsünü gife çevirebilirsiniz.
https://www.cockos.com/licecap/

Süpermiş gerçekten teşekkürler

[gkimirti]

rica ederim, forumlar bunun icin var