新建一个窗口,加入一个ListBox, 将窗口设为bsDialog,并实现下列事件
procedure TFormXXX.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style and (not WS_CAPTION);
end;
ListBoxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);// 可以不用
ListBoxDbClick(Sender: TObject);//处理选择
FormDeactivate(Sender: TObject);//实现隐藏
KeyDown(var Key:Word;Shift:TShiftState)// 处理键盘
KeyPress(var Key:char))// 处理键盘
ListBoxKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState)
// 处理ListBox键盘
ListBoxKeyPress(Sender: TObject; var Key: Char))
// 处理ListBox键盘
在主窗口中实现TFormXXX的事件
OnKeyDown;// 完成选择
OnKeyPress;;// 完成选择