Lập trình thay đổi Component Palette của Delphi IDE
Nếu bạn thường làm việc với Delphi, nếu Delphi của bạn đã được cài đặt thêm rất nhiều các
thành phần điều khiển (component) và nếu bạn luôn phải sử dụng rất nhiều component trong các
dự án của mình thì có bao giờ bạn thấy mệt mỏi khi phải tìm đến biểu tượng component Palette
mà mình mong muốn trên thanh công cụ Component hay không?

Component Palette của Delphi IDE đơn giản là một điều khiển dạng TAB với tiêu đề chỉ g
ồm một hàng
duy nhất, vì vậy sẽ khiến bạn mất nhiều thời gian tìm kiếm khi có quá nhiều component. Bài viết này
nhằm giúp giải tỏa "nỗi bức xúc" trên bằng cách thiết lập thuộc tính Multi-lines cho điều khiển TAB
Component Palette bằng những thủ thuật đơn giản mà có khi bạn không hề ngờ tới. Ở đây tôi sử dụng
Delphi 7 tuy nhiên với các phiên bản thấp hơn cũng không có nhiều thay đổi.

Giới thiệu về Delphi IDEDelphi IDE (Integrated Development Environment) là môi trường phát triển tích hợp của Delphi. Tùy
thuộc vào từng phiên bản cụ thể của Delphi mà các thành phần của Delphi IDE cũng có những thay đổi
nhất định. Chẳng hạn trong Delphi 7, IDE gồm có 5 thành phần chính đó là:

1. Cửa sổ chính của Delphi: Tên mã của cửa sổ này là TAppBuilder. Cửa sổ này bao gồm trình đơn,
các thanh công cụ và một bảng gồm các công cụ phát triển (Component Palette).

2. Cửa sổ thiết kế FORM: Đây chính là cử
a sổ thực tế dành cho chương trình ứng dụng của bạn. Khởi
đầu cửa sổ là một FORM trống mỗi khi bạn khởi động Delphi.

3. Cửa sổ Object Inspector: Tên mã của cửa sổ là TPropertyInspector. Đây là cửa sổ cho phép bạn
thay đổi các thuộc tính cho thành phần trên FORM như tiêu đề, tên... một cách trực quan.

4. Cửa sổ soạn thảo mã lệnh Code Editor: Tên mã của cửa sổ là TEditWindow. Đây là nơi thự

OnStartDrag = TabControlStartDrag
BorderStyle = bsNone
OnHelpRequest = ComponentPaletteHelpRequest
object PageScroller1: TPageScroller
Left = 32
Top = 6
Width = 31
Height = 39
Align = alClient
AutoScroll = True
TabOrder = 0
OnScroll = PageScroller1Scroll
end
object Panel2: TPanel
Left = 4
Top = 6
Width = 28
Height = 39
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
object SelectorButton: TSpeedButton
Left = 0
Top = 0
Width = 28
Height = 28
GroupIndex = 1
Down = True
Flat = True
end

function GetIdeMainForm: TCustomForm;
begin
Result := TForm(Application.FindComponent(AppBuilder));
end;

Tìm điều khiển TAB Component Palette

Để tìm được điều khiển TAB này, bạn hãy dùng đoạ
n mã sau:

function GetTabControl : TTabControl;
var
MainForm : TCustomForm;
begin
Result := nil;
MainForm := GetIdeMainForm;
if MainForm <> nil then
Result := TTabControl(MainForm.FindComponent(TabControl))
end;

Tìm menu popup của điều khiển TAB Component Palette

Để làm được điều này, bạn hãy dùng:

function GetComponentPalettePopupMenu : TPopupMenu;
var
MainForm : TCustomForm;
begin
Result := nil;
MainForm := GetIdeMainForm;

Như vậy là đã xong. Bạn hãy đóng package lại sau đó thử nhấn chuột phải trên TAB Component Palette
xem sao. Chắc bạn sẽ ngạc nhiên vì thấy sự xuất hiện của một mục chọn mới với tên là Multi-Lines. Hãy
nhấn mục chọn này và quan sát sự khác biệt. (Xem hình 5)

Hình 5. Minh họa kết quả
Nếu tinh ý một chút chắc các bạn có thể dễ dàng nhận ra Delphi IDE của tôi được hỗ tr
ợ theo Style XP
(khi chạy trên nền Windows XP). Để làm được điều này, rất đơn giản các bạn hãy tạo một file tên
delphi32.exe.manifest với nội dung như sau:
Ngo Quoc Anh language="*" />

Sau đó lưu cùng thư mục với file delphi32.exe là được (xem hình 6).