Ctrl+Enter

← →
Minotavr (2004-02-04 22:13) [0]

При нажатии на Ctrl+Enter в мемо добавляется строка
как этого избежать но при этом выполнить функцию

← →
Юрий Зотов © (2004-02-04 22:15) [1]

OnKeyDown не работает?

← →
minotavr (2004-02-04 22:32) [2]

нет
в смысле он то работает, функция выполняется но при этом появляется лишняя строчка как в описании

я хотел бы добится эффекта как ICQ .... Ctrl+Enter и сообщение ушло

← →
Юрий Зотов © (2004-02-04 23:21) [3]

Key := 0 пробовали?

← →
minotavr (2004-02-05 00:01) [4]

Да
не работает

← →
Andy BitOff © (2004-02-05 00:38) [5]

Как не работает? Кусок кода, пожалуйста.

← →
minotavr (2004-02-05 01:20) [6]

procedure TForm_main_admin.Memo_command_sqlKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if (key=13) and (Shift=[ssCtrl]) then
begin SpeedButton_SQL_RUNClick(self);key:=0;end;
end;

← →
PKT (2004-02-05 02:14) [7]

Попробуй
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if Key = #10 then begin ShowMessage("Ctrl+Enter"); Key := #0; end; end;

← →
minotavr (2004-02-05 05:06) [8]

Идея помогла :-)

Сделал так:

.....
private
{ Private declarations }
CADDE : boolean;
.....
procedure TForm_main_admin.Memo_command_sqlKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Shift=[ssCtrl] then CADDE := true;
end;

procedure TForm_main_admin.Memo_command_sqlKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Shift<>[ssCtrl] then CADDE := false;
end;

procedure TForm_main_admin.Memo_command_sqlKeyPress(Sender: TObject;
var Key: Char);
begin
if (CADDE) and (key=#10) then begin key:=#0;SpeedButton_SQL_RUNClick(self);end;
end;
.....

Все работает ! Всем спасибо

Ctrl+Enter Найти похожие ветки