procedure TFrmmain.OutlookListItem_Click(OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem); begin if MDIChildCount > iMaxWindows then begin showmessage('窗口打开数已超过最大设定值:'+IntToStr(iMaxWindows)+' ,请先关闭一些窗口!'); exit; end else begin DoFunc(item.tag); //控制窗体打开 end; end;
楼主怎么做的??俺也在做有关QQ的工具.不知怎么获取所点取的name.
var pButton: TmxButton;动态创建Button时 pButton.OnClick:= OnButtonClick;procedure TFMenus.OnButtonClick(Sender: TObject); var pButton: TmxButton; begin pButton:=TmxButton(Sender); ShowMessage(pButton.Caption); end
没用过,帮你顶!
Item: TfcOutlookListItem);
begin
if MDIChildCount > iMaxWindows then
begin
showmessage('窗口打开数已超过最大设定值:'+IntToStr(iMaxWindows)+' ,请先关闭一些窗口!');
exit;
end
else begin
DoFunc(item.tag); //控制窗体打开
end;
end;
pButton: TmxButton;动态创建Button时
pButton.OnClick:= OnButtonClick;procedure TFMenus.OnButtonClick(Sender: TObject);
var
pButton: TmxButton;
begin
pButton:=TmxButton(Sender);
ShowMessage(pButton.Caption);
end