Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jul 2005
Oder so:
procedure TDemoForm.MemoKeyPress(Sender: TObject; var Key: Char);
const
LinePrefix = '';
begin
if key = #13 then begin
Memo.SelText := #13#10 + LinePrefix;
Memo.SelStart := Memo.SelStart + Memo.SelLength;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
14. Jul 2005
Hallo Richard,
das müsste eigentlich ungefähr so ablaufen - noch nicht ganz ausformuliert:
procedure TDemoForm.MemoKeyPress(Sender: TObject; var Key: Char);
const
LinePrefix = '';
var
lineIndex: integer;