توی رویداد OnClick مربوط به TreeView آیتم انتخاب شده اون رو چک کنید ، اگر آیتم مورد نظر بود ، فرم مورد نظر رو نمایش بدید ، مثال :
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if Assigned(TreeView1.Selected) then
begin
if TreeView1.Selected.Text = 'Form2' then
Form2.Show;
end;
end;
اگر آیتمها از قبل مشخص هستند ، یعنی Index مشخصی دارند می تونید شرط رو روی Index هم بزارید :
procedure TMainFrm.TreeView1Click(Sender: TObject);
begin
if Assigned(TreeView1.Selected) then
begin
if TreeView1.Selected.Index = 2 then
Form2.Show;
end;
end;
* لطفا سئوالتون رو در بخش مناسب مطرح کنید !
موفق باشید ...
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول