Behandlung von RETURN im Memo Feld

[raena]

@Relicted

vielen Dank, dein Vorschlag funktioniert einwandfrei. Woher kann man schon wissen, dass CTRL Enter
#10 ergibt Aber gut.

Vielen Dank, schönen Feierabend.

Delphi-Quellcode:

unit Unit1;

interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, Grids, DBGrids, DB, StdCtrls, StrUtils, Menus, Tabs, DBTables,ShellAPI,
  ExtCtrls, COMObj, math, ExtDlgs;

type
  TForm1 = class(TForm)
    Mem_SQL_Input: TMemo;


  procedure FormCreate(Sender: TObject);
procedure Mem_SQL_InputKeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;



implementation

{$R *.dfm}


procedure tform1.Mem_SQL_InputKeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin

 if Key = #10 then begin
     key :=#0;
     showmessage('Crtl-Shift erkannt.');
     end;
     end;

procedure TForm1.formcreate(Sender: TObject);
begin
 Mem_SQL_Input.Text:='';
end;

end.