标题栏(100分)

  • 主题发起人 主题发起人 minibug
  • 开始时间 开始时间
什么意思
要分钱么?
我要一份
;)
 
标题栏右侧的问号功能(biHelp)如何使用?
 
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMHelp(var Msg: TWMHelp);
message WM_HELP;
public
end;

procedure TForm1.WMHelp(var Msg: TWMHelp);
var
Control: TWinControl;
begin
with Msg.HelpInfo^do
begin
Control := FindControl(hItemHandle);
Caption := Control.Name;
end;
end;
 
Application.HelpFile:=......
Form1.BorderStyle:=bsDialog;
Form1.BorderIcons:=Form1.BorderIcons+[biHelp];
Edit1.HelpContext:=......
 
Croco is right!
 
接受答案了.
 
后退
顶部