|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Клоны на форме как?
как поместить на форму несколько компонент клонов.
т.е дапустим 2 тимейджа полностью идентичных (даже имя) ну и соответственно все что происходит на 1 из них происходит и на другом (события тоже) или такое невозможно?) |
#2
|
||||
|
||||
Делфя не пропустит одинаковые имена, они по-любому должны различаться, а насчёт зависимых изменений содержимого одного компонета от других, например для двух едитов можно сделать так
Код:
procedure TForm1.Edit1Change(Sender: TObject); begin Edit2.Text:= Edit1.Text; end; procedure TForm1.Edit2Change(Sender: TObject); begin Edit1.Text:= Edit2.Text; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
прямо так
Код:
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; |
#4
|
|||
|
|||
А ещё посмотреть в сторону TFrame
|
#5
|
||||
|
||||
Цитата:
Код:
procedure TControl.SetText(const Value: TCaption); begin if GetText <> Value then SetTextBuf(PChar(Value)); end; Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |