Frage zu SynEdit.

[werfux]

Hallo ich habe keine Ahnung ob ich jetzt mit meiner Frage in der richtigen Rubrik hier gelandet bin. Falls nicht, entschuldigt das bitte.

Also nun zu meiner Frage. Ich habe ein ganz einfache Projekt mit einem SynEdit EditirFeld und einer Statusleiste angelegt. Nun würde ich gerne die Courserposition in der Statausleiste anzeigen lassen. Mein bisheriger Quelletxt scheitert am umwandeln bzw. auslesen des Datentyps TSynStatusChange. Vielleicht wisst Ihr was ich falsch mache?


Hier der Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, SynEdit;

type
  TForm1 = class(TForm)
    SynEdit1: TSynEdit;
    StatusBar1: TStatusBar;
    procedure SynEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CharPos_x: TSynStatusChange;
  CharPos_y: TSynStatusChange;
implementation

{$R *.dfm}

procedure TForm1.SynEdit1Change(Sender: TObject);

var
 CharPos: TSynStatusChange;

begin
 CharPos := SynEdit.scCaretx;
 StatusBar1.Panels[0].Text :=Format('Ln %d', [CharPos[0]]);
end;

end.

[edit=Sharky]Delphi-Tags gesetzt. Einfach [*delphi] vor und [*/delphi] hinter den Code setzen (ohne die *) Mfg, Sharky[/edit]