Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi In eine bestimme Line springen (https://www.delphipraxis.net/4418-eine-bestimme-line-springen.html)

RobertS 28. Apr 2003 15:15


In eine bestimme Line springen
 
Hallo,

ich habe ein Feld mit Lines gefüllt.
Zum Programmstart möchte ich das der Cursor in die 3 Zeile springt?

Wird warscheinlich ziemlich einfach sein aber ich bekomme schon fast graue Haare.
Danke schonmal

mfg
Robert

Daniel B 28. Apr 2003 15:45

Hallo,

vielleicht solltest Du auch dazu sagen um welche Komponente es sich genau handelt. Ein Feld kann vieles sein. ;)

Aber wenn man sich jetzt zum Beispiel eine ListBox/View vorstellen würde, musst Du nur den ItemIndex auf den gewünschten Wert setzen, in Deinem Fall auf 2, wäre dann die dritte Zeile.

Grüsse, Daniel :hi:

RobertS 28. Apr 2003 18:11

Es ist ein SynEdit Edit Feld.

Auch wenn es Edit Feld heißt, es hat Lines :D

Stanlay Hanks 28. Apr 2003 18:14

Also, es ist mit Sicherheit nicht die schönste alle Lösungen. Aber ich habs so gemacht (allerdings mit einem Memo. hoffe mal dass es auch mit einem synedit (was das auch immer ist) geht.):

Delphi-Quellcode:
begin
Memo1.Lines.Exchange(2,2);
Memo1.SetFocus;
end;
Eigentlich tauscht man ja mit exchange zwei strings aus. aber wenn man zweimal den gleichen wert (nullbasiert) angibt. Springt er auch in die Zeile.


Man liest sich, Stanlay :bounce1:

Alexander 28. Apr 2003 19:33

kzck dir mal die Synedit-Demos an...
müsste irgendwas mit CaretX und Y sein...sind natürlich integer...

RobertS 29. Apr 2003 08:01

Also es funktioniert beides nicht.

Code:
procedure TForm1.FormShow(Sender: TObject);
begin
Synedit1.CaretXPix:=2;
Synedit1.SetFocus;

end;
Kommt nur eine Meldung das "der linken Seite nichts zugewiesen kann.."

Der andere Vorschlag schiebt zwar den kompletten Text nach unten aber verschiebt den Courser nicht. :cry: :cry:

Ben 29. Apr 2003 16:37

Hi RobertS

Delphi-Quellcode:
SynEdit.CaretX := 2;
...damit geht's !

Greetz, Ben :hi:

RobertS 30. Apr 2003 08:03

Super funzt. Danke sehr!


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz