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?
(https://i.ibb.co/cN2pH5V/memo1.gif) (https://ibb.co/cN2pH5V)
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.
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.
Memo1.Perform(EM_LINESCROLL,0,10);
*
@Kılıç bu hareketli ekran görüntüsünü nasıl oluşturup eklediniz.(video capture yazılımını yani)
Super Screen Recorder ile ekranı .avi olarak kaydettim.
Movavi Video Editor 15 Business ile avi'yi gif'e çevirdim
licecap ile doğrudan ekran görüntüsünü gife çevirebilirsiniz.
https://www.cockos.com/licecap/
Alıntı yapılan: gkimirti - 21 Ekim 2019, 16: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
rica ederim, forumlar bunun icin var