Memo nesnesinın scrollbar pozisyonları

Başlatan z, 21 Ekim 2019, 06:42:41

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?
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

Kılıç

21 Ekim 2019, 11:11:01 #1 Son düzenlenme: 21 Ekim 2019, 13:23:50 Kılıç

 

unit Unit1;

interface

uses
  Windows
MessagesSysUtilsVariantsClassesGraphicsControlsForms,
  
DialogsStdCtrls;

type
  TForm1 
= class(TForm)
    
Memo1TMemo;
    
Memo2TMemo;
    
Label1TLabel;
    
procedure FormCreate(SenderTObject);
  private

    
procedure Memo1WindowProc(var MessageTMessage);
  public
    { Public 
declarations }
  
end;

var
  
OldMemoProcTWndMethod;
  
Form1TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Memo1WindowProc(var MessageTMessage);
begin
  OldMemoProc
(Message);
  if (
Message.Msg WM_VSCROLL) or (Message.Msg WM_Mousewheelthen
    Memo2
.WindowProc(Message);
end;

end.
auto-reverse recording

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.
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

Kılıç

auto-reverse recording

Epsilon

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

Kılıç

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

gkimirti

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

Epsilon

Alıntı yapılan: gkimirti - 21 Ekim 2019, 19:13:26licecap ile doğrudan ekran görüntüsünü gife çevirebilirsiniz.
https://www.cockos.com/licecap/
Süpermiş gerçekten teşekkürler

gkimirti


Yasal Uyarı: Picproje.org sitemizde 5651 sayılı kanunun 8. maddesine ve T.C.Knın 125. maddesine göre tüm üyelerimiz yaptıkları paylaşımlardan kendileri sorumludur. Picproje.org hakkında yapılacak tüm hukuksal şikayetleri İletişim sayfamızdan bize bildirdikten en geç 3 (üç) iş günü içerisinde ilgili kanunlar ve yönetmelikler çerçevesinde tarafımızca incelenerek gereken işlemler yapılacak ve site yöneticilerimiz tarafından bilgi verilecektir.