Vertikale Scrollbar eines Memo1 in Position manipulieren?

[PAX]

Hallo Leute!

Wie kann ich die Position eines vertikalen Scrollbars im Memo1 verändern? Vielleicht indem ich den Inhalt des Memo1 einer TStrings-Variable übergeben, den Inhalt des Memofeldes leere und dann dem Memo1 den Wert der Variablen zuweise?

Code:

 Var Dummy: TStrings;

 Dummy := TStrings.Create;
 Dummy := Memo1.Lines;
 Memo1.Lines.Clear;
 Memo1.Lines.Assign(Dummy);

Dieses Beispiel funktioniert nich! Das Memo-Feld ist danach leer!

Cu
PAX :freak:

[Aya]

Hi,

ich hab zwar KA was du mit deinem Beispiel da bezwecken wolltest, aber das kann garnicht gehen ;)

Versuch es mal so:

Delphi-Quellcode:

  Memo1.Perform(WM_VSCROLL,SB_LINEDOWN,0); //Scrollt eine Zeile runter
  Memo1.Perform(WM_VSCROLL,SB_LINEUP,0); //Scrollt eine Zeile hoch

Au'revoir,
Aya~

[PAX]

Hey, vielen Dank!

Memo1.Perform(WM_VSCROLL,SB_TOP,0);
... macht genau das, was ich wollte! Ich wollte bezwecken, dass nach ganz oben gescrollt wird. Selbiges passiert bei einer Zuweisung eines entsprechenden Bezeichners an ein Memo.
Ich wüsste trotzdem noch gerne, wo bei meinem Beispiel der Fehler liegt, wodurch gewünschtes nicht eintrifft. :|

Ciao

PAX :nerd:

[Aya]

Hi,

ok.. das du nach oben Scrollen willst, wusste ich nicht.. da wäre das auf deine Methode (wenn auch unschön) auch gegangen... allerdings hättest du es dann so machen müßen:

Delphi-Quellcode:

 Var Dummy: TStrings; 

 Dummy := TStrings.Create; 
 Dummy.Assign(Memo1.Text);
 Memo1.Lines.Clear; 
 Memo1.Lines.Assign(Dummy.Text);
 Dummy.Free;

Au'revoir,
Aya~

[PAX]

Oh, :o
ja klar!
Danke! :P

PAX