Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Zeichen pro Zeile in DBMemo begrenzen

    Delphi
    by freak4fun, 20. Jan 2006
  Hallo :hi:,
  ich hab was bei den Schweizern gefunden.
  
  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;