Memo Feld Autoscroll funktioniert nicht

[Doenercola]

Hallo!

Zuerst: Ich habe Google und die Forensuche schon bemüht und habe das gefundene probiert:

Memo1.Perform(WM_VSCROLL, SB_BOTTOM, 0);

funktioniert bei mir leider nicht.

WM_VSCROLL und SB_BOTTOM erkennt Lazarus leider nicht.

Ich hab ein Memo-Feld aus Textausgabefeld benutzt und will, dass es automatisch nach unten scrollt nach einer Aktion.

Danke für eure Hilfe!

Ganz liebe Grüße
Marcel

[vergessen]

In Deinem Profil hast Du Delphi7 eingestellt.

Einfach nur vergessen, oder?

Edith hat vergessen: Doenercola benutzt wohl Lazarus ;-)

[Doenercola]

Oh, tut mir leid :( Mein Fehler :)

[Bummi]

Delphi-Quellcode:

const
 WM_VSCROLL = 277;
 SB_BOTTOM  = 7;

[Doenercola]

Funktioniert leider nicht :( Jedoch gibt er mir keine Fehlermeldung aus, das Scrollen is aber noch net automatisch.
Gibts einen Grund wieso Du gerade diese Zahlen ausgewählt hast?

Liebe Grüße
MArcel

[himitsu]

Zitat:

Zitat von Doenercola (Beitrag 1083127)

das Scrollen is aber noch net automatisch.

Wie nicht automatisch?
Dieser Befehl sagt "Scrolle jetzt nach unten" und das auch nur genau jetzt und nicht zukünftig.

Zitat:

Zitat von Doenercola (Beitrag 1083127)

Gibts einen Grund wieso Du gerade diese Zahlen ausgewählt hast?

Die stehen so im MSDN ... wurde von Microsoft so festgelegt. :wink:

[Sir Rufo]

Mr. Spock "Faszinierend"
WM_VSCROLL SB_BOTTOM

[Doenercola]

Zitat:

Zitat von himitsu (Beitrag 1083132)

Zitat:

Zitat von Doenercola (Beitrag 1083127)

das Scrollen is aber noch net automatisch.

Wie nicht automatisch?
Dieser Befehl sagt "Scrolle jetzt nach unten" und das auch nur genau jetzt und nicht zukünftig.

Sorry, hab mich etwas ungenau ausgedrückt :) Ich wollte damit sagen, dass das Memo-Feld, beim Drücken auf einen Button, nicht nach unten scrollt, sondern wieder nach oben.

Delphi-Quellcode:

procedure MemoFeld_NachUnten;
begin
Form1.Memo_Textausgabe.Perform(WM_VSCROLL, SB_BOTTOM, 0);
end;  

procedure TForm1.Img_Wpn_2Click(Sender: TObject);
begin
  Waffentyp := 'Schnappschildkröte am Stock';
  Schaden   := 25;
  GebeInfo_WaffeBild
  MemoFeld_NachUnten;
end;

Bei der Prozedur "GebeInfoWaffeBild" werden Informationen, beim Klick auf ein Bild (bei einer anderen Prozedur beim Drücken auf einen Button) in dsa Memo Feld geschrieben. Das Memo-Feld geht dann jedoch "nicht mit" sondern geht bei jedem Klick wieder nach oben in die Ausgangsposition.

Ganz liebe Grüße
Marcel. :)

[Doenercola]

Ich hab das Problem gelöst, indem ich einfach eine neue Zeile hinzugefügt hab.

Delphi-Quellcode:

procedure MemoFeld_NachUnten;
begin
//Form1.Memo_Textausgabe.Perform(WM_VSCROLL, SB_BOTTOM, 0);
Form1.Memo_Textausgabe.Lines.Add('');
end;

Ganz liebe Grüße
Marcel :)