Программно вызвать OnKeyDown (Linux) [РЕШЕНО]

[Владимир]

Господа-граждане, всем доброго! Туплю чего-то...
Пытаюсь программно сымитировать нажатие Enter на Edit

Код: Выделить всё

........
begin
Edit1KeyDown(self,13,NIL);
//ругань на 3-й параметр - требует TShiftState
end;


ладно

Код: Выделить всё

.......
var
shf:TShiftState;
begin
shf:=ssShift;
//ругань TShiftStateEnum  и TShiftState - несоответствие типов
Edit1KeyDown(self,13,shf);
end;


Туплю...

[Лекс Айрин]

А для чего именно?

[pupsik]

Код: Выделить всё

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if (key = 13) and (ssShift in Shift) then
    ShowMessage('bo');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ss : TShiftState;
  t : Word;
begin
  ss := [ssShift];
  t := 13;
  Edit2KeyDown(sender, t, ss);
end; 

[Владимир]

Поясню - по событию происходит обработка текста в TEdit.
Ошибок при компиляции нет, а вот по исполнению получаю SigServ на файл Control.inc

Код: Выделить всё

function TControl.GetText: TCaption;
var
  len: Integer;
  GetTextMethod: TMethod;
begin
  // Check if GetTextBuf is overridden, otherwise we can call RealGetText directly
  Assert(Assigned(@Self.GetTextBuf), 'TControl.GetText: GetTextBuf Method is Nil');
  GetTextMethod := TMethod(@Self.GetTextBuf);//вот на этой строке
  if GetTextMethod.Code = Pointer(@TControl.GetTextBuf) then begin
    Result := RealGetText;
  end
  else begin 
.....


[Лекс Айрин]

Владимир, то есть, тебе надо перевести строку?

[Mikhail]

Можно так

Код: Выделить всё

Edit1.Perform(WM_KEYDOWN, VkKeyScan(#13), 0);

[Владимир]

pupsik, спасибо! На тестовом проекте все работает, это уж мои заморочки...

Добавлено спустя 47 секунд:
Re: Программно вызвать OnKeyDown (Linux)

Можно так

Код: Выделить всё

Edit1.Perform(WM_KEYDOWN, VkKeyScan(#13), 0);

Это Linux!

Добавлено спустя 2 минуты 46 секунд:
Re: Программно вызвать OnKeyDown (Linux)

Владимир, то есть, тебе надо перевести строку?

Да нет, в Edit находится некое число, которое нужно обработать по KeyDown/

[Лекс Айрин]

Владимир, в линукс версии лазаруса добавлен слой эмуляции винподобного API.

[Владимир]

Владимир, в линукс версии лазаруса добавлен слой эмуляции винподобного API.

Спасибо, не знал, попробую.

[slyubez]

Владимир, в линукс версии лазаруса добавлен слой эмуляции винподобного API.

Неужели во все виджеты?

[Лекс Айрин]

Неужели во все виджеты?

Насколько я знаю... по возможности.

[pupsik]

а потом выцепай что не работает...

[Лекс Айрин]

pupsik, это да.