tmemo cursor an erste stelle

[hardcorehorst]

ja ich nerve schon wieder

wie zur krieg ich den cursor in die erste zeile in einem memo ???

Prob: Memo1 kann 2 Zeilen anzeigen hat aber 3 lines ( 4 inklusive der blöden leeren letzten zeile)
also steht der Cursor in der 4. leren zeile !!!
er soll aber in die erste und die blöde 4. zeile kann auch weg !!!

HILFE !!!!!

[marabu]

quick and dirty:

Delphi-Quellcode:

begin
  memo.SelStart := 0; // anfang der ersten zeile
  memo.SelStart := Length(Memo.Lines[0]); // ende der ersten zeile
end;

Grüße vom marabu

[hardcorehorst]

das klappt so nicht ...
ich meine mein cursor ist hier

Delphi-Quellcode:

Zeile 1
Zeile 2
Zeile 3
Zeile 4 <---

soll aber hier sein:

Delphi-Quellcode:

Zeile 1 <---
Zeile 2
Zeile 3
Zeile 4

[Matze]

Marabus Code geht, doch kommt es drauf an, wie du das aufrufst. Machst du es z.B. über einen Button, musst du den Fokus natürlich wieder auf's Memo setzen:

Delphi-Quellcode:

begin
  Memo1.SelStart := 0;
  Memo1.SelStart := Length(Memo1.Lines[0]);
  Memo1.SetFocus;
end;

[Flocke]

... oder HideSelection auf FALSE setzen (dann sollte das Setzen von SelStart funktionieren).

[Matze]

Zitat von Flocke:

... oder HideSelection auf FALSE setzen (dann sollte das Setzen von SelStart funktionieren).

Hm, bei mir geht das nicht.

[hardcorehorst]

also ich hab n leeres form und da das gemacht aber da funzt das auch nich !!!!

ich hab delphi 7

[PierreB]

Zitat von hardcorehorst:

also ich hab n leeres form und da das gemacht aber da funzt das auch nich !!!!

ich hab delphi 7

Doch es geht, habe es gerade selber mit D3 getestet.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.SelStart := 0;
 Memo1.SelStart := Length(Memo1.Lines[0]);
 Memo1.SetFocus;
end;

end.

[marabu]

Hi Leute,

der "Cursor" ist das caret und das sieht man ja erst wenn das Memo auch den Focus hat. Vielleicht ist nicht ganz klar gewesen, dass nur eine der beiden Zeilen von mir verwendet werden sollte:

Delphi-Quellcode:

procedure TDemoForm.JumpButtonClick(Sender: TObject);
begin
  with Memo do begin
    SelStart := Length(Lines[0]);
    SetFocus;
  end;
end;

marabu

[hardcorehorst]

mach mal bitte ein screenie vorher und nachher !