Wie kann ich RichEdit-Feld eine Zeile verschieben

[Reini64]

Hi,

Wie kann ich RichEdit-Feld eine Textzeile Hilfe von Speedbutton Zeilen nach oben oder unter verschieben, so das bei jeden Click auf dem Speedbutton der Cursor eine Zeile bewegt wird ?

Der Speedbutton soll die gleiche Funktion wie auf der Tastatur "Bild oben" bzw "Bild unter" belegt werden !

[Matze]

Hi!

Zitat von Reini64:

Wie kann ich RichEdit-Feld eine Textzeile Hilfe von Speedbutton Zeilen nach oben oder unter verschieben, so das bei jeden Click auf dem Speedbutton der Cursor eine Zeile bewegt wird ?

Sorry, ich hab das jetzt 4x durchgelesen und weiß immer noch nicht genau, was du möchtest.
Könntest du es vielleicht etwas deutlicher erklären?

[alcaeus]

Zitat von Reini64:

Hi,

Wie kann ich RichEdit-Feld eine Textzeile Hilfe von Speedbutton Zeilen nach oben oder unter verschieben, so das bei jeden Click auf dem Speedbutton der Cursor eine Zeile bewegt wird ?

Der Speedbutton soll die gleiche Funktion wie auf der Tastatur "Bild oben" bzw "Bild unter" belegt werden !

Mit Hilfe von CaretPos dürftest du dieses Problem lösen können.

Greetz
alcaeus

PS: Im Nachhinein die Fragestellung ausbessern ist unfair!

[Reini64]

Also ich benötige diese Funktion zur Bedingung mit einen Touchscreen-Monitor. Da die Scrollbänder für die Bedienung zu klein sind muss ich dazu Schaltflächen einfügen, da mir keine Tastatur zur Verfügung steht. - kannst Du das jetzt verstehen ?

[Reini64]

Mit "CaretPos " komme ich nicht weiter!

[Stevie]

Delphi-Quellcode:

RichEdit1.Perform(EM_LINESCROLL, 0, 1);  // Zeile nach unten scrollen
RichEdit1.Perform(EM_LINESCROLL, 0, -1); // Zeile nach oben scrollen

[Reini64]

so geht es !!

Danke Stevie

[mischerr]

XP!? Nur ein Vorschlag:
Änder doch einfach das Windows-Design etwas "Touchscreen-freundlicher" ab. (R-Click Desktop > Eigenschaften > Anzeige > Erweitert > Bidlaufleiste > Größe anpassen).

Ist vielleicht nicht der programmiertechnische Weg, aber "entzerrt" evtl. einen mit Buttons überladenen "Touch-Desktop".

Grüsse!