[unity]

как поместить на форму несколько компонент клонов.
т.е дапустим 2 тимейджа полностью идентичных (даже имя)
ну и соответственно все что происходит на 1 из них происходит и на другом
(события тоже)

или такое невозможно?)

[Alegun]

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

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Edit2.Text:= Edit1.Text;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
 Edit1.Text:= Edit2.Text;
end;

[icWasya]

прямо так

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Edit2.Text:= Edit1.Text;
end;   
procedure TForm1.Edit2Change(Sender: TObject);
begin
 Edit1.Text:= Edit2.Text; 
end; 

делать нельзя. Получите преполнение стека
Нужен дополнительный контроль затем, откуда приходит Change.
Например так

Код:

  private
    InChange:Boolean;
............................
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if InChange then Exit;
  InChange:=true;
  try
    Edit2.Text:= Edit1.Text;
  finally
    InChange:=false;
  end; 
end;   
procedure TForm1.Edit2Change(Sender: TObject);
begin
  if InChange then Exit;
  InChange:=true;
  try
    Edit1.Text:= Edit2.Text;
  finally
    InChange:=false;
  end; 
end; 

[icWasya]

А ещё посмотреть в сторону TFrame

[NumLock]

Сообщение от icWasya

прямо так

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Edit2.Text:= Edit1.Text;
end;   
procedure TForm1.Edit2Change(Sender: TObject);
begin
 Edit1.Text:= Edit2.Text; 
end; 

делать нельзя. Получите преполнение стека

можно, setter сначала сравнивает новое значение со старым, а потом устанавливает свойство:

Код:

procedure TControl.SetText(const Value: TCaption);
begin
  if GetText <> Value then SetTextBuf(PChar(Value));
end;

[Alegun]

Сообщение от icWasya

прямо так... делать нельзя. Получите преполнение стека ...

Неа, можно - специально мучил машинку, и с пустой строкой пытался подсунуть перменную, извращался как мог - результат всё по-взрослому, без ошибок. (О, NumLock тоже это подтверждает с разъяской:-)