tạo giao diện thuật sĩ trong delphi 7

Question

Tôi đang sử dụng delphi 7 và tôi đang cố gắng tạo giao diện thuật sĩ. Tôi không biết liệu có một cách dễ dàng hơn để tạo trình hướng dẫn hay không, vì vậy tôi đã nghĩ đến việc tạo các biểu mẫu riêng cho từng bước của trình hướng dẫn và khi người dùng nhấp vào "Tiếp theo", biểu mẫu đang hoạt động sẽ đóng và biểu mẫu tiếp theo sẽ mở ra.

Dưới đây là một màn hình-shot của hai hình thức tiếp:

Tôi đã thực hiện một thủ tục mà phải mất 2 hình thức như thông số: hình thức sẽ được đóng cửa và các hình thức tiếp theo của wizard

class Procedure Tspad.nextForm(showForm, closeForm: TForm); 
begin 
    closeForm.Close; 
    showForm.Showmodal; 
end; 

Khi tôi nhấp vào "Next" nút mã folowing được thực hiện:

Tspad.nextForm(echipContractForm, clientContractForm); 

Khi tôi chạy chương trình, và tôi nhấn nút "Next", hình thức apeare tiếp theo s nhưng curent một không gần.

Tôi có thể thực hiện công việc này như thế nào hoặc có cách nào khác hiệu quả hơn để tạo trình hướng dẫn không?

Answer 1

Một cách rất phổ biến để thực hiện thuật sĩ là sử dụng điều khiển trang. Mỗi trang riêng biệt của trình hướng dẫn là một trang/tabsheet khác trong điều khiển trang. Tôi tin rằng đây là cách Windows thực hiện các trình thuật sĩ hiệu quả.

Tự nhiên bạn muốn ẩn tất cả các tab. Thực hiện việc này bằng cách đặt TabVisible thành False cho mỗi tabsheet. Khi bạn muốn tiến lên và lùi lại qua trình hướng dẫn, ví dụ: khi người dùng nhấp vào các nút tiếp theo hoặc trước đó, hãy thực hiện điều này bằng cách đặt ActivePage hoặc ActivePageIndex tùy thuộc vào tùy chọn của bạn.

Answer 2

Phương pháp hay để phân chia nội dung được hiển thị trên một biểu mẫu là sử dụng Khung.

A Khung rất giống như một biểu mẫu, ngoại trừ nó không có Cửa sổ riêng, mà là nằm bên trong Biểu mẫu máy chủ .

Khi kết hợp với (như David Heffernan đã gợi ý) một TPageControl hoặc thậm chí một TNotebook (mà là khá nhiều-chính xác giống như TPageControl, chỉ có nó không có Tabs để bắt đầu với), bạn kết thúc với một Wizard dễ bảo trì.

Answer 3

Bạn có thể kiểm tra một số thành phần có thể giúp bạn thực hiện tác vụ này (sử dụng nội bộ tPageControl hoặc TNotebook). Xem this link.

Trân trọng.

Answer 4

JVCL có quyền kiểm soát tốt để thực hiện thuật sĩ theo cách rất đơn giản và hiệu quả (TJvWizard). Xem http://jvcl.delphi-jedi.org/

Answer 5

Bạn có thể đưa ra một thử đến những:

• Balmsoft Wizard phát hành dưới LGPL.
• Delphi Wizard Framework bởi thành viên SO Steven R. Kamradt.

Answer 6

Bạn cũng có thể xem xét TMS TAdvSmoothStepControl (không miễn phí!). Một giải pháp khác, nhưng chỉ 'bên ngoài' cho chương trình của bạn, là sử dụng Inno Setup để tạo Trình hướng dẫn, ngay cả đối với mục đích 'không cài đặt cài đặt'. Trong thực tế với Inno Setup bạn có thể thực hiện rất nhiều suy nghĩ (sửa đổi tập tin .ini và đăng ký, bắt đầu/dừng chương trình ...) có thể hữu ích cho một thuật sĩ mà không cần 'cài đặt' một chương trình.