Панель инструментов Опции

[Client]

Привет!
Я хочу из всплывающего меню (на скрине) изменять размер шрифта в мемо.

procedure TForm1.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
  Rebuild: Boolean);
var
  a:integer;
begin
  a:=strtoint(Source.Caption);
  memo1.Font.Size:=a;
end;

Выдает ошибку сразу при запуске. Как тут быть?

[Client]

Что такое для тебя "панель инструментов"? Какой-то определенный компонент? Ну, так делай его родителем кнопки...

t1 := TButton.Create(Application);
t1.Left:=100;
t1.Top:=100;
t1.Caption:='новая кнопка';
t1.Parent:=ToolBar1;

Сделал предком тулбар и все как надо
А как описать обработчик OnClick?

Parent:=Self

и

Parent:=Form1

работает одинаково. Self это же "сам"?

Сообщение отредактировано: Client - 20.05.2009 20:00