ВУЗ:
Составители:
Рубрика:
44
if strtoint(stringgrid1.cells[i,j])<min
then min:=strtoint(stringgrid1.cells[i,j]);
label2.Caption:=inttostr(min)
end;
end.
Рассмотрим пример создания контекстного меню.
Пример 8. Создать контекстное меню для изменения цвета и размера
шрифта в поле строки ввода Edit.
Разместим на форме строку ввода Edit1 и установим её свойства :
Width = 210 Height=70 AutoSize=false
В поле Edit1 поместим компонент PopupMenu1 (контекстное меню
можно будет вызвать нажатием правой кнопки мыши в поле Edit1).
Выделив компонент PopupMenu1, нажмём на кнопку с тремя точками
около свойства Items. Откроется окно конструктора меню. В этом ок-
не сначала введём названия подменю: Цвет и Размер. Затем выде-
лим название Цвет и нажмём на правую кнопку мыши. В открыв-
шемся контекстном меню выберем пункт Create SubMenu и введём
названия пунктов подменю Цвет „ красный синий . Аналогично
введём пункты подменю Размер„ 16 24 . Для опреде-
ления реакции на выбор пунктов меню следует по очереди выби-
рать все пункты меню и щёлкать по ним мышкой.
Процедура обработки события выбора пункта меню Цвет „ красный :
procedure TForm1.N2Click(Sender: TObject);
begin edit1.Font.Color:=clred; end;
Процедура обработки события выбора пункта меню Цвет „ синий :
procedure TForm1.N3Click(Sender: TObject);
begin edit1.Font.Color:=clblue; end;
Процедура обработки события выбора пункта меню Размер„ 16 :
procedure TForm1.N5Click(Sender: TObject);
begin edit1.Font.size:=16 end;
Процедура обработки события выбора пункта меню Размер„ 24 :
procedure TForm1.N6Click(Sender: TObject);
begin edit1.Font.size:=24 end;
В заключение установим свойство PopupMenu компонента Edit1
равным PopupMenu1.
44
if strtoint(stringgrid1.cells[i,j])
