FreePascal.ru

Спасибо!
То есть получается такая конструкция в обработчике пункта меню:
procedure TForm1.MenuItem1Click(Sender: TObject);
var
aRow, aCol: integer;
sg: TStringGrid;
begin
if (Sender is TMenuItem) and
(TMenuItem(Sender).GetParentMenu is TPopupMenu) and
(TPopupMenu(TMenuItem ...

Для этого надо знать, с какого Grid было вызвано PopupItem. А в обработчике OnClick источником является PopupItem, а не Grid.

На форме несколько StringGrid, к которым привязан один и тот же PopupMenu. Как в процедуре OnClick для MenuItem узнать, на какой таблице и в какой ячейке вызван этот OnClick?

О, спасибо. все как надо. А я все в сторону Axis копал, а там не то совсем.

Изучаю TAChart. В серию по таймеру несколько раз в секунду добавляется значение. Масштаб графика при добавлении очередного значения автоматически меняется по X и Y, чтобы весь график помещался в окне. Добавил ChartToolset1 на изменение масштаба колесиком мыши по X, по Y, панорамирование и зум ...

Мне надо выводить лог в Memo, и если видна последняя строка, чтобы новый текст добавлялся с прокруткой всего текста в конец (нормальное поведение TMemo). А если последние строки не видны (например, юзер сдвинул ScrollBar вверх и просматривает предыдущие сообщения), то текст чтобы добавлялся в TMemo ...

Спасибо, проблема решилась!

Имею двоичный файл длиной 32кБ
Мне надо, чтобы при работе программы создавался массив из этих 32к байтов, но загружать их не из файла, а брать из тела программы.
То есть поместить этот файл в тело программы при компиляции.
Помогите!

Что-то я запутался.
Мне надо в компоненте TTreeView сделать по нажатию кнопок перемещение выделенной ветки (со всеми ее подветками) вверх / вниз в пределах ее родителя. Код ниже двигает только саму ветку (без подветок), и по всему дереву, а не в пределах родительской ветки.
procedure TTreeForm&#46 ...

Да, получилось, спасибо.

Рисую на Bitmap.Canvas картинку Picture со смещением (X=10, Y=20), и вывожу его на MyRisunok:TImage


За пределами картинки получается черный фон. Как изменить цвет фона?

А можно пример, как это сделать?
Как добавить его в ЕХЕшник, и как потом извлечь?

Имеется файл справки в формате CHM.
Вызывается из программы следующим образом:
procedure TMainForm.miHelpClick(Sender: TObject);
begin
shellexecute(handle,nil,'Help.chm',nil,nil,sw_restore);
end;
А можно ли как-нибудь встроить этот Help.chm в EXE-шник? Чтобы не отдельным файлом, а ...

Спасибо за пояснения!

daesher а можно пояснить, в чем чуть меньшая надежность?