Arbeite mit Delphi7 und möchte programmiert
A) im Text blättern (Pageup/Pagedown)
1. Die Funktion Pageup und Pagedown kann ich nicht compilieren, da mir in ToolsAPI die Datei DesignIntf.dcu fehlt.
2. Die Anweisung: Perform(WM_VSCROLL, SB_PAGEDOWN, 0); funktioniert zwar, jedoch bleibt der Cursor an seiner alten Position und ist nicht sichtbar.
3. Ein dritter Versuch, einen Tastendruck von der Tastatur zu simulieren (hier funktioniert es) mit der Anweisung: Perform(WM_Keydown, Key_PAGEDOWN, 0); scheint formal falsch zu sein.
Was mache ich falsch, bzw wer hat für eine Lösung?

B) Fülle im Programm eine Zeile mit sehr langem Text und setze Cursor ebenfalls programmiert ans Zeilenende. Dies funktioniert, jedoch wird in diesem Fall der Scrollbar nicht sichtbar (wird nur sichtbar, wenn ich per Pastendruck, z.B. auf Ende dorthin springe).

C) Gibt es eine Routine oder Methode mit der man die Anzahl der sichtbaren Zeilen im Richeditfenster ermitteln kann?

D) Gibt es eine Routine oder Methode mit der man die aktuelle Zeile im linken oberen Fenster ermitteln kann?

Danke für alle hilfreichen Antworten!

Hallo und

hRb hat folgendes geschrieben :

1. Die Funktion Pageup und Pagedown kann ich nicht compilieren, da mir in ToolsAPI die Datei DesignIntf.dcu fehlt.

Die DesignIntf Unit wird eigentlich nur für Hilfsklassen für Komponenten in einem Package benötigt, nicht im Programmquelltext an sich.
Ohne Quelltext wird da aber kaum jemand Tipps geben können.

In einem Package muss man jedenfalls das Package designide70 als required angeben soweit ich mich erinnere. Dann sollte die Fehlermeldung, dass die Unit fehlt, verschwinden.