PageControl?

← →
Эрик (2002-10-12 08:49) [0]

Как сделать, на манер виндоуза, такую вешь:
В компоненте PageControl для всех Tab"ов одну кнопку "применить"
т.е. если производятся изменения на 1 Tab"е, то при нажатии они применяются для этого Tab"а. Но если изменения сделаны во всех Tab"ах то применяются они,соответственно, все.
Пример: окно настроек экрана в виндоус.
Списибо!

← →
hjghjdgjgh (2002-10-12 09:17) [1]

pagecontrol>align>altop
form1>button1>button1click>do whatever

← →
Эрик (2002-10-12 09:25) [2]

Не понял :(

← →
hjghjdgjgh (2002-10-12 09:28) [3]

тебе надо сделать как в свойствах экрана?
выставляешь у pagecontrol1.align := altop;
уменьшаешь/увеличиваешь до нужных размеров
ставишь кнопки

← →
Эрик (2002-10-12 09:34) [4]

Да нет, ты не понял.
Мне нужен код на обработчики этих самых кнопок, чтобы применить все изменения на всех табах на которых производились эти изменения. А где изменений не производилось оставить в покое.
Что-то вроде: if TabSheet1.modified=true then do...

← →
Song © (2002-10-12 11:25) [5]

Нет, нужно самостоятельно включать эту кнопку на любых событиях, которые должны приводить к изменению данных.

я это сделал таким образом:

1. Если были изменения в Tab"e - то Tab1.Tag=1
2. На кнопку вешаешь такой обработчик:
CASE PageControl.ActivePageIndex of 1: if PageControl.Pages[1].Tag=1 then ...; .... n: if PageControl.Pages[n].Tag=1 then ...; end

← →
Groove (2002-10-12 16:14) [7]

А ты сделай - схранить все табы - те, которые измнились запишутся с новыми параметрами, а которые нет - со старыми =))

PageControl? Найти похожие ветки