Как создать N-ное количество MEMO

[Bat{CMD}_Men]

Как создать такое приложение, в котором Массивом создаются N-ное количество MEMO и щелчком правой кнопки мыши только одно MEMO окрашивается в желтый цвет?

[Jeni]

Сообщение от Bat{CMD}_Men

Как создать такое приложение...

Садимся за компьютер, запускаем Дельфи, набираем код, если не получилось - показываем его на форуме и просим помощи, мы находим ошибки и исправляем.

[lexaltd]

private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: array [1..10] of TMemo;
implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
   a[5].Color := clYellow;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,f : integer;
begin
 f := 0;
 for i := 1 to 10 do
  begin
   a[i] := TMemo.Create(self);
   a[i].Parent := self;
   a[i].Name := 'Memo' + IntToStr(i);
   a[i].Left := f ;
   a[i].Top := 10;
   a[i].Height:= 50;
   a[i].Width := 50;
   f := f + 55;
  end;
end;

[mihali4]

Сообщение от Bat{CMD}_Men

Как создать такое приложение, в котором Массивом создаются N-ное количество MEMO

http://programmersforum.ru/showthread.php?t=43632

Сообщение от Bat{CMD}_Men

и щелчком правой кнопки мыши только одно MEMO окрашивается в желтый цвет?

Этот обработчик назначать всем создаваемым Мемо:

procedure TForm1.МемоMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
(Sender as TМемо).Color:=clYellow;
end;

[subsonic]

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

[mihali4]

Еще логичнее было бы воспользоваться поиском по форуму "Динамическое создание компонентов".
Пошел оффтоп. Закрыто.