Delphi Aktuelle Zeile auslesen ...

Thema durchsuchen

Ansicht

Themen-Optionen

Aktuelle Zeile auslesen ...

Ein Thema von Nils_13 · begonnen am 12. Nov 2005 · letzter Beitrag vom 13. Nov 2005

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

Re: Aktuelle Zeile auslesen ...

12. Nov 2005, 11:46

Hallo Nils,

kommst du damit zurecht?

markieren

Delphi-Quellcode:

			procedure TDemoForm.MemoKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var

  iLine: integer;

begin

  iLine := Memo.Perform(EM_LINEFROMCHAR, -1, 0);

  if (Key = VK_Return) and (LowerCase(Memo.Lines[iLine]) = '#exit') then

    Application.Terminate;

end;

Grüße vom marabu