新建 文本文档.txt

来自「招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言」· 文本 代码 · 共 8 行

    PropertySheet := TPropertySheet(CreatedForm(TPropertySheet) as TPropertySheet);
    PropertySheet.SetCaption('选项');
    PropertySheet.ConfirmLostData := True;
    PropertySheet.SetButtonStates(True, True, True);
    PropertySheet.AddPage(TProp_DBLogin.Create(PropertySheet), False);
    Result := PropertySheet.Handle;
    PropertySheet.ShowModal;
    Exit;