Форум: "Основная";
Текущий архив: 2004.02.13;
Скачать: [xml.tar.bz2];

Вниз

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;
.....

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.016 c