Цитата Devils Night:
|
Что-то до меня туговато доходит! Примерчик можно? Вот хотя бы на примере SelectDirPage, нужно к примеру чтобы FolderTreeView действовала в DirEdit, т.е при выборе директории в FolderTreeView, путь менялся и в DirEdit, как это сделать? »
|
Примерчик
PHP код:
[ Code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
FolderTreeView1: TFolderTreeView;
procedure DirFolderChange(Sender: TObject);
begin
WizardForm.DirEdit.Text:=AddBackslash(FolderTreeView1.Directory) + 'My Program'
end;
procedure RedesignWizardForm;
begin
{ FolderTreeView1 }
FolderTreeView1 := TFolderTreeView.Create(WizardForm);
with FolderTreeView1 do
begin
Name := 'FolderTreeView1';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(112);
Width := ScaleX(332);
Height := ScaleY(97);
Cursor := crArrow;
OnChange:= @DirFolderChange;
end;
FolderTreeView1.TabOrder := 5;
{ ReservationBegin }
// Вы можете добавить ваш код здесь.
{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
Попробую объяснить:
Когда мы создаем какой-нибудь элемент на форме, например кнопку, это получается просто тупая кнопочка, которая при нажатии ничего не выполняет. А что бы она что-то делала при нажатии, нужно написать процедуру, в которой указать, что делать кнопчаге при нажатии, а потом, присвоить кнопчаге, на событие onClick, выполнение данной процедуры. Это касается всех создаваемых вами элементов на форме. Наглядный пример выше: вы создали элемент TFolderTreeView, но не создали процедуру, в которой нужно указать, а что же будет происходить при нажатии на определенную папку или диск.
