Всмысле, чтоб контекстное меню вызывалось левым кликом? Тогда так
Code
procedure TForm1.Edit1Click(Sender: TObject);
begin
SendMessage(Edit1.Handle, WM_RBUTTONDOWN, 0, 0);
SendMessage(Edit1.Handle, WM_RBUTTONUP, 0, 0);
end;
Однако при нажатии правой кнопки будет происходить то же самое. Если вы имели ввиду что-то другое, напишите, пожалуйста
