Hi Leute,

eigentlich sollte es ja ganz einfach sein in einem TMemo, ein Text an der aktuellen Cursor Position einzufügen.
Allerdings habe ich keine Methode insert oder ähnliches gefunden.
Jetzt habe ich mir gedacht :

markieren

Code:

Var sCode : String;
    sTmp : String;
begin
    sCode := 'blabla';
    if mem_Msg.SelLength = 0 then begin
      sTmp := mem_Msg.lines.Text;
      Insert(sCode,sTmp,mem_Msg.SelStart);
      mem_Msg.Lines.Text := sTmp;
      // Focus auf Eingabe-Feld
      mem_Msg.SetFocus;
      // markierung löschen und Cursor hinter das letzte Zeichen
      mem_Msg.SelStart := mem_Msg.SelStart + Length(sCode);
      // 
    end
    else begin

    end;

Leider funktioniert das ganze nicht sehr gut, weil mem_Msg.lines.Text ja auch noch Steuerzeichen für Zeilenumbüche und ähnliches enthält.

Schön wäre es auch wenn jemand auch eine passende Lösung hat, wenn den SelLength des Memos > 0 ist, dann soll natürlich der markierte Text ersetzt werden.

Danke,

Spontan fiele mir noch ein, über die Zwischenablage zu gehen und den Text in das Memo zu pasten.

[edit]Im PSDK habe ich noch EM_REPLACESEL gefunden, damit geht es auch ohne Zwischenablage[/edit]
[edit2] Das entspricht übrigens der Methode SetSelTextBuf von TMemo[/edit2]

Gruß, teebee

zusammenfalten · markieren

Delphi-Quellcode:

const
  InsertText = 'test'; //Der String zum Einfügen
var
  MemoText: string; //Eine variable für Memo1.Text
  Select: Integer; //Position des Selektionsbegins
begin
  MemoText:=Memo1.Text;
  Select:=Memo1.SelStart; //Selektionsbeginn zwischenspeichern

  if Memo1.SelLength>0 then
  begin
    Delete(MemoText, Select+1, Memo1.SelLength); //Selektiertes löschen
  end;

  Insert(InsertText, MemoText, Select+1); //neuen Text einfügen
  Memo1.Text:=MemoText; //Text zurück zu Memo1

  Memo1.SelStart:=Select; //Selektionsbeginn wiederherstellen
  Memo1.SelLength:=length(InsertText); //neuen Text markieren (nicht sichtbar, da Memo nicht Fokussiert ist)
end;

Ich hoffe, das hilft... Bei mir hat es geklappt...

Die Markierung soll hinter das letze Zeichen? Kein Problem!

zusammenfalten · markieren

Delphi-Quellcode:

const
  InsertText = 'test'; //Der String zum Einfügen
var
  MemoText: string; //Eine variable für Memo1.Text
  Select: Integer; //Position des Selektionsbegins
begin
  MemoText:=Memo1.Text;
  Select:=Memo1.SelStart; //Selektionsbeginn zwischenspeichern

  if Memo1.SelLength>0 then
  begin
    Delete(MemoText, Select+1, Memo1.SelLength); //Selektiertes löschen
  end;

  Insert(InsertText, MemoText, Select); //neuen Text einfügen
  Memo1.Text:=MemoText; //Text zurück zu Memo1

  Memo1.SelStart:=Select+length(InsertText); //Selektionsbeginn hinter neuem Text wiederherstellen
  Memo1.SelLength:=0; //Selektion auf 0 beschränken
end;

Zitat von Rackergen2:

zusammenfalten · markieren

Delphi-Quellcode:

const
  InsertText = 'test'; //Der String zum Einfügen
var
  MemoText: string; //Eine variable für Memo1.Text
  Select: Integer; //Position des Selektionsbegins
begin
  MemoText:=Memo1.Text;
  Select:=Memo1.SelStart; //Selektionsbeginn zwischenspeichern

  if Memo1.SelLength>0 then
  begin
    Delete(MemoText, Select+1, Memo1.SelLength); //Selektiertes löschen
  end;

  Insert(InsertText, MemoText, Select+1); //neuen Text einfügen
  Memo1.Text:=MemoText; //Text zurück zu Memo1

  Memo1.SelStart:=Select; //Selektionsbeginn wiederherstellen
  Memo1.SelLength:=length(InsertText); //neuen Text markieren (nicht sichtbar, da Memo nicht Fokussiert ist)
end;

Ich hoffe, das hilft... Bei mir hat es geklappt...

Die Markierung soll hinter das letze Zeichen? Kein Problem!

zusammenfalten · markieren

Delphi-Quellcode:

const
  InsertText = 'test'; //Der String zum Einfügen
var
  MemoText: string; //Eine variable für Memo1.Text
  Select: Integer; //Position des Selektionsbegins
begin
  MemoText:=Memo1.Text;
  Select:=Memo1.SelStart; //Selektionsbeginn zwischenspeichern

  if Memo1.SelLength>0 then
  begin
    Delete(MemoText, Select+1, Memo1.SelLength); //Selektiertes löschen
  end;

  Insert(InsertText, MemoText, Select); //neuen Text einfügen
  Memo1.Text:=MemoText; //Text zurück zu Memo1

  Memo1.SelStart:=Select+length(InsertText); //Selektionsbeginn hinter neuem Text wiederherstellen
  Memo1.SelLength:=0; //Selektion auf 0 beschränken
end;

Hallo Rackergen2, es muss heissen:

"Insert(InsertText, MemoText, Select +1); //neuen Text einfügen"
ansonsten setzt er den Text immer an die vorletzte Stelle.

Gruß

SelText wurde schonmal genannt ... dieses Ersetzt die Selction durch den angegebenen Text, bzw. liest diese aus.

Zitat von Rackergen2:

zusammenfalten · markieren

Delphi-Quellcode:

const
  InsertText = 'test'; //Der String zum Einfügen
var
  MemoText: string; //Eine variable für Memo1.Text
  Select: Integer; //Position des Selektionsbegins
begin
  MemoText:=Memo1.Text;
  Select:=Memo1.SelStart; //Selektionsbeginn zwischenspeichern

  if Memo1.SelLength>0 then
  begin
    Delete(MemoText, Select+1, Memo1.SelLength); //Selektiertes löschen
  end;

  Insert(InsertText, MemoText, Select+1); //neuen Text einfügen
  Memo1.Text:=MemoText; //Text zurück zu Memo1

  Memo1.SelStart:=Select; //Selektionsbeginn wiederherstellen
  Memo1.SelLength:=length(InsertText); //neuen Text markieren (nicht sichtbar, da Memo nicht Fokussiert ist)
end;

ergibt also

markieren

Delphi-Quellcode:

begin
  Memo1.SelText := InsertText;
  Memo1.SelStart := Memo1.SelStart + Memo1.SelLength;
  //Memo1.SelLength := 0; // wird schon durch SelStart auf 0 gesetzt
end;

und um den Cursor hinter den eingefügten Text zu setzen

markieren

Delphi-Quellcode:

begin
  Memo1.SelText := InsertText;
  Memo1.SelStart := Memo1.SelStart + Memo1.SelLength;
  //Memo1.SelLength := 0; // wird schon durch SelStart auf 0 gesetzt
end;

hi,

genau das wars danke, das was Du jetzt gerade noch eingefügt hattest, habe ich auch gerade selbst rausgefunden

Nochmal danke

Zitat von DataCool:

das was Du jetzt gerade noch eingefügt hattest, habe ich auch gerade selbst rausgefunden

Naja, wollte es wenigstens vollständig haben

Warum so kompliziert? Mit SetSelTextBuf oder desm Setzen von SelText geht das viel einfacher...

Gruß, teebee

Zitat von teebee:

Warum so kompliziert? Mit SetSelTextBuf oder desm Setzen von SelText geht das viel einfacher...

Gruß, teebee

Laber nicht, schreib uns hier ein Beispiel!

Naja, der Eigenschaft SelText einen Wert zuzuweisen, sollte doch nicht so schwierig sein...
Memo1.SelText := 'Das hier wird eingefügt!'; BTW:

Zitat von OH:

Die Eigenschaft SelText gibt den markierten Textbereich des Eingabefeldes an.

property SelText: string;

Beschreibung

Durch Lesen von SelText läßt sich der Wert des markierten Textes ermitteln. Setzen Sie SelText, wenn der markierte Text durch einen neuen String ersetzt werden soll. Wenn keine Markierung vorhanden ist, das Eingabefeld aber den Fokus besitzt, setzen Sie SelText, um einen neuen String an der Cursorposition in den Text einzufügen.

Gruß, teebee