Zitat von
Tommy1988:
Ne, so meinte ich das nicht ..
hat man den Cursor zwischen und </b> also da; >'<, und drückt ENTF, wird /b> hinten dran gehangen .. das wollte ich verhindern, nur ENTF zu unterdrücken ist nicht so gut.
Delphi-Quellcode:
procedure TForm1.Memo1Change(Sender: TObject);
begin
if (Copy(Memo1.Text, Memo1.SelStart-2, 3) = '[b]') and not
(Copy(Memo1.Text, Memo1.SelStart+1, 4) = '<b>
Genau das wird ja verhindert, aber Ich gebs auf ist wahrscheinlich zu schwer das mal zu testen. <img src="images/smilies/gruebel.gif" border="0" alt="" title="Grübelnd..." class="inlineimg" />
</b>') then
begin
Memo1.SelText := '
[/b]
Delphi-Quellcode:
';
Memo1.SelStart := Memo1.SelStart-4;
end;
end;