memo1 line number?

en anden mulighed kunne være at vise det i statusbar som Frontpage gør....

implementation

{$R *.DFM}

function RichRow(m: TCustomMemo): Longint;
begin
  Result := SendMessage(m.Handle, EM_LINEFROMCHAR, m.SelStart, 0);
end;

function RichCol(m: TCustomMemo): Longint;
begin
  Result := m.SelStart - SendMessage(m.Handle, EM_LINEINDEX, SendMessage(m.Handle,
    EM_LINEFROMCHAR, m.SelStart, 0), 0);
end;


procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
statusbar1.Panels[0].Text := Format('%d : %d', [RichCol(Form1.Memo1), RichRow(Form1.Memo1)]);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with memo1.CaretPos do
    statusbar1.Panels[0].Text := Format('(%d, %d)',[X+1,Y+1])

end;

how... ændringer i tekstlinier....mangler lige

procedure TForm1.Memo1Change(Sender: TObject);
begin
with memo1.CaretPos do
    statusbar1.Panels[0].Text := Format('(%d, %d)',[X+1,Y+1])
end;

hey, undskyld jeg ikke lige har været her, men det har jo været weekend ;) hvis du forstår en lille en :) any way..

jeg skulle ha brugt det oppe på skolen, men stoppede i fredags og har ikke lige tid til at rode med det i den nærmeste fremtid, men hvis du kan love mig at det virker kan du smide et svar og så får du point:)

.S

jeg kan garanterer den virker.

her er lige en lille ændring hvis du vil have vist linie og kolonne tekst i statusbar

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
statusbar1.Panels[0].Text := Format('Linie %d : Kolonne %d', [RichRow(Form1.Memo1), RichCol(Form1.Memo1)]);

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
with memo1.CaretPos do
    statusbar1.Panels[0].Text := Format('Linie( %d, Kolonne %d)',[X+1,Y+1])
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with memo1.CaretPos do
    statusbar1.Panels[0].Text := Format('Linie(%d, Kolonne %d)',[X+1,Y+1])
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
with memo1.CaretPos do
    statusbar1.Panels[0].Text := Format('Linie(%d, Kolonne %d)',[X+1,Y+1])
end;

okay mange tak :)ved du hvor jeg kan hente en "pakke" med alle de der mange filer man ellers skalhente enkeltvis, så jeg kan få programmet her hjemme ..

her er point

trial versioner er kun muligt at få hos:

http://www.borland.com/downloads/download_delphi.html