偶做个程序,不想让用户改变窗体大小,但是呢,也不能使用AutoSize属性,还可以怎么样设置属性呢?呵呵不好意思,高手不要笑话偶另,因为分不多,所以只能给10了,呵呵

解决方案 »

  1.   

    form1的属性里  constraints 下的 maxheight ,maxwidth 设置一下value就行了;
      

  2.   

    尝试一下先...谢谢楼上三位...另一个问题, 偶再加分好了, 开新帖可能会影响到大家浏览别的帖子,就在这提了:1. 不知道有没有办法改变使用ShowMessage中的字符串的某一部分的字体颜色??如果可以,怎么弄呢??(20分)
    2. Click一个Button, 弹出一对话框(就上面那个ShowMessage来着), 在对话框中Click - OK后关闭对话框, 再关闭窗体... 就是一模式窗体(10分)谢谢各位了/...
      

  3.   

    刚才尝试了一下, Borderstyle不行,因为我不是要去掉标题栏什么地...另外, 使用constraints下的max/min属性, 虽然可以让它的大小不能被改变, 但是却会出现那个拉动已改变窗体大小的鼠标符号,不好...不知道有没有别的办法...麻烦了...
      

  4.   

    不知道有没有办法改变使用ShowMessage中的字符串的某一部分的字体颜色??如果可以,怎么弄呢??(20分)
    好像没有这个功能!
    2. Click一个Button, 弹出一对话框(就上面那个ShowMessage来着), 在对话框中Click - OK后关闭对话框, 再关闭窗体... 就是一模式窗体(10分)
    showmessage("sadsadsa");
    close;
    不知道你说得是不是这个意思!
      

  5.   

    2.自己也可以做一个formmodal
    formmodal.showmodal来调用这个窗体就是你要的
      

  6.   

    开贴的那个问题
    boderstyle设成bssingle
      

  7.   

    谢谢楼上两位TO 用心良苦: 对于第二个问题, 是这样的:有一个窗体,之中呢有个botton(这botton是关闭窗体用地,但是要在显示了对话框并点击了对话框的OK之后)TO goodloop(小志) :你的方法偶不是很明白,可以稍微的详细一点吗??谢谢~~
      

  8.   

    TO  goodloop(小志): 是设的bssingle啊,不行... 不知道是不是因为我使用了SkinEngine这个皮肤控件的原因???
      

  9.   

    对于第二个问题, 是这样的:有一个窗体,之中呢有个botton(这botton是关闭窗体用地,但是要在显示了对话框并点击了对话框的OK之后)
    、、、、、、、、、、、、
    show 一个normlbox ,判断是不是mrok 是则执行close,不是放弃。
      

  10.   

    boatzm(晓舟) 恩,就这意思,呵呵,可以给个代码吗?偶不知道怎么写,呵呵
      

  11.   

    TO 用心良苦: 对于第二个问题, 是这样的:有一个窗体,之中呢有个botton(这botton是关闭窗体用地,但是要在显示了对话框并点击了对话框的OK之后)
    -----------------------------------------------------------------------
    在form中有个closequery事件 在里面写
    if messagebox(self.handle,'','',mb_yesno+32)=idyes then
      CanClose=true
    else
     CanClose=false;
      

  12.   

    用了skin engine之后设置会稍微麻烦一点,具体的我也忘记了,但是可以实现的,需要设置相应的skin engine控件的属性,不光设置form的属性,楼主可以试试~~
      

  13.   

    可以把form.formstyle=single.如果仍然怕有以外就在OnResize事件中恢复原来的窗体大小。
      

  14.   

    //不能改变窗体的大小,设置BorderStyle为bsSingle//2. Click一个Button, 弹出一对话框(就上面那个ShowMessage来着), 在对话框中Click - OK后关闭对话框, 再关闭窗体... 就是一模式窗体
      自己添加一个窗口,在里面添加一个按钮,讲按钮的ModalResult改为mrOK,在原来的的窗体添加以下代码:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Form2.Showmodal;
      close;
    end;
      

  15.   

    哇,perfect!这么多回复了,呵呵... 给分给分,赚到了,哈哈~~