老大,我都给了你 150 了你还不知足!还要看我的原程序。
太贪了吧?
呵呵,不过,我把我解决的地方贴出来,也许有用哦。
//将
{
procedure TctDeFunc.pnlModifyResize(Sender: TObject);
var
w :Integer;
begin
if WindowState <> wsMinimized then begin //这都不行!呵呵。
w := pnlModify.Width;
if w > 417 then
Dec(w, 120)
else
w := 297; //就坏在这里。
edMdfExpr.Width := w;
edMdfEffect.Width := w;
edMdfName.Width := w;
edMdfNote.Width := w;
edMdfSQL.Width := w;
edMdfParam.Width := w;
edMdfRm.Width := w;
btnMdfViewEffect.Left := w + 88;
end;
end;
}
//改成
procedure TctDeFunc.pnlModifyResize(Sender: TObject);
var
w :Integer;
begin
w := pnlModify.Width;
if w > 417 then begin
Dec(w, 120)
edMdfExpr.Width := w;
edMdfEffect.Width := w;
edMdfName.Width := w;
edMdfNote.Width := w;
edMdfSQL.Width := w;
edMdfParam.Width := w;
edMdfRm.Width := w;
btnMdfViewEffect.Left := w + 88;
end;
end;
// That's OK.