FreePascal.ru

Maxizar писал(а):Так я его для вас и написал И я же прошу выложить ваш проект ...

Что-то я туплю.

Maxizar писал(а):Там оставил exe скомпиленный, и добавил Edit, в который вводишь путь к программе и кликаешь кнопку.

Хочется разобраться почему у меня не запускается.

Maxizar писал(а):Очень странно... а можете выложить свой проект

Для чистоты эксперимента, скачал проект из третьего сообщения в этой теме, о котором уважаемый Maxizar сказал, что запускается.

У меня не завёлся даже он.

Попробуйте запустить его у себя.

Скачал Lazarus-0.9.31-29791-fpc-2.4.2-20110311-win32.exe. Удалил прежний, поставил новый.

Твой проект у меня не запускается с прежней ошибкой.

Файл C:\Program Files\Internet Explorer\iexplore.exe присутствует. Запускал его, поместив эту строку в диалог "Пуск" - "Выполнить".

ОC: Windows XP SP3 ...

Здравствуйте.

Задача: запустить внешнюю программу, путь к которой содержит пробелы. Например: C:\Program Files\Internet Explorer\iexplore.exe.

Пытаюсь запустить через TProcess:
procedure runapp;
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess&#46 ...

Здравствуйте.

Имеется форма с несколькими объектами TButton. Также имеется объект TPopupMenu для организации контекстного меню.

При правом клике на любом объекте TButton, появляется конекстное меню. Каждый пункт меню (их четыре) будет запускать процесс iexplorer.exe с различными параметрами. Один ...

А переменная PressedShape какого типа?

Здравствуйте.

Кратко условие задачи. На форме имеется несколько элементов Shape. При левом клике на каждом элементе появляется падающее меню, состоящее из четырех пунктов. По каждому пункту будет запускаться системный браузер, в адресную строку которого будет подставляться IP-адрес в зависимости ...

...добавить Action, выставить его ShortCut='Esc', а в обработчике OnExecute написать Close.

Клавиша Esc не обрабатывается. Также, как не обрабатываются некоторые другие клавиши и комбинации, предложенные по умолчанию.

Пробовал в ShortCut вручную писать Esc, Escape. Пробовал захватывать клавишу ...

устанавливаешь свойство формы KeyPreview := True и создаешь обработчик события onKeyPress из одной строки:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
if Key = #27 then close;
end;

Если курсор установлен на объекте TMaskEdit, то клавиша Esc не срабатывает ...

v-t-l писал(а):И не надо никакой KeyPreview и onKeyPress.

А для главной формы можно так сделать? У меня главная форма закрывается по Esc только, если кнопка Cancel со свойством Cancel=True находится под курсором.

Всё получилось.

Спасибо вам, добрые люди.

FPC v2.2.4 -- может из-за этого?

Да, этот совет я уже видел где-то. Только почему-то не срабатывает. Делал так:
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;

procedure TForm1.FormKeyPress
(Sender: TObject; var Key: Char) ;
begin
if key = #27 then Close;
end;

На строку ...

Lazarus 0.9. ОС Windows XP SP3.

Как закрыть форму по нажатию клавиши Esc?

Спасибо.