Cursorposition

elundril · Verfasst: Mi 01.03.06 21:02

wie gibt man die cursor position in einem RichEdit feld zurück??

mfg elundril

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Suche bemühen, war schon oft !

BenBE · Verfasst: Mi 01.03.06 22:11

F1 Drücken, soll auch Wunder bewirken können ...

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

elundril · Verfasst: Do 02.03.06 17:04

das funktioniert aber nicht!!! ich hab die procedure in mein unit reinkopiert aber was muss ich dann tun?? ich will das die zeile und die spalte in ein Statusbarpanel reingeschrieben wird!

ok ich hab nur die procedure in mein unit reinkopiert ohne irgendwas anderes zu machen! und ich will das sobald sich der cursor bewegt sich die zwei zahlen im Statusbarpanel auch ändern! sonst hab ich keinen Quellcode zu dieser procedure in das gesamte unit hinzugefügt!

AXMD · Verfasst: Do 02.03.06 17:06

markieren

Delphi-Quelltext

1:	Glaskugel.AskQuestion(Self.Topic.LastPost);

markieren

Quelltext

1:	EGlaskugelOnHolidaysError 223

Ohne Code wird dir niemand helfen können :roll:

AXMD

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

elundril hat folgendes geschrieben:

das funktioniert aber nicht!!! ich hab die procedure in mein unit reinkopiert aber was muss ich dann tun?? ich will das die zeile und die spalte in ein Statusbarpanel reingeschrieben wird!

ok ich hab nur die procedure in mein unit reinkopiert ohne irgendwas anderes zu machen! und ich will das sobald sich der cursor bewegt sich die zwei zahlen im Statusbarpanel auch ändern! sonst hab ich keinen Quellcode zu dieser procedure in das gesamte unit hinzugefügt!

LOL

Ahhhhhjaaaaa die procedure.. mhh.. was glaubst du wie viel verschiedene proceduren er gibt? 3? 4? Woher soll hier jemand wissen was du kopiert hast? :rofl:

Natürlich musst du eine procedure auch aufrufen und nicht einfach wo reinkopieren

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Bin mal nicht so, aber über die Suche wärest du auch fündig geworden.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := 'Zeichen: ' + IntToStr(RichEdit1.CaretPos.x);
  StatusBar1.Panels[1].Text := 'Zeile: ' + IntToStr(RichEdit1.CaretPos.y+1);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme