在Delphi下设计程序怎样做成象CSDN"专家门诊"这样的框架格局? 使用panel控件即可实现。譬如左边的索印标题窗口放在一个panel中,右边的子窗口,不同的各用一个panel用于显示。至于隐藏与否,控制visable属性即可。给个email我,或者给你做一个 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 OxSplit会非常轻松的完成这个功能的。 cobi你真好!要不帮我作算了! OxSplit这东西我用过,可能还是这个比较适合些。比较好看。 在哪儿有正式版的OxSplit下载呢?我可不想要Demo版的。 forgot2000(忘记2000年):我做了一个很简单的,不知道是否合你需要。dfm文件如下:object Form1: TForm1 Left = 192 Top = 107 Width = 544 Height = 464 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 129 Height = 437 Align = alLeft BevelOuter = bvNone Color = 12369084 TabOrder = 0 end object Panel2: TPanel Left = 129 Top = 0 Width = 16 Height = 437 Align = alLeft BevelOuter = bvNone Color = 13631439 TabOrder = 1 object Label1: TLabel Left = 0 Top = 192 Width = 16 Height = 16 AutoSize = False Caption = ' >>' OnClick = Label1Click end end object Panel3: TPanel Left = 145 Top = 0 Width = 391 Height = 437 Align = alClient BevelOuter = bvNone Color = clScrollBar TabOrder = 2 object Panel4: TPanel Left = 0 Top = 80 Width = 391 Height = 357 Align = alBottom BevelOuter = bvNone Caption = 'Panel4' Color = clCaptionText TabOrder = 0 end endendpas文件如下: unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; Label1: TLabel; procedure Label1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Label1Click(Sender: TObject);begin if Panel1.Visible then begin Panel1.Visible := false; Label1.Caption := ' >> ' end else begin Panel1.Visible := true; Label1.Caption := ' << ' end;end;end.你看一下是否能满足你的要求 疑难问题求DataSet取得9位整数8位小数 修改DBGridEh1单元数据怎么会空值? 多维数组排序 DBGridEh问题。请高手过来看看。 在delphi中,怎样避免SQL Server数据表关键字段重复记录的提交。 经典sql查询求助,有案例,帮忙解决一下! 急,关于DBRichEdit的问题,急用,高分求解! 在按鈕上可以加ico嗎?好像都是用bmp的哦 提供方案马上给分 请大家帮帮我吧,用dev express grid 如何用回车键换格 有关一个RXDBCtrl.dcu的问题 各位,何处有FIFA2002下载?
dfm文件如下:
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 464
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 129
Height = 437
Align = alLeft
BevelOuter = bvNone
Color = 12369084
TabOrder = 0
end
object Panel2: TPanel
Left = 129
Top = 0
Width = 16
Height = 437
Align = alLeft
BevelOuter = bvNone
Color = 13631439
TabOrder = 1
object Label1: TLabel
Left = 0
Top = 192
Width = 16
Height = 16
AutoSize = False
Caption = ' >>'
OnClick = Label1Click
end
end
object Panel3: TPanel
Left = 145
Top = 0
Width = 391
Height = 437
Align = alClient
BevelOuter = bvNone
Color = clScrollBar
TabOrder = 2
object Panel4: TPanel
Left = 0
Top = 80
Width = 391
Height = 357
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel4'
Color = clCaptionText
TabOrder = 0
end
end
endpas文件如下:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Label1: TLabel;
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Label1Click(Sender: TObject);
begin
if Panel1.Visible then
begin
Panel1.Visible := false;
Label1.Caption := ' >> '
end else
begin
Panel1.Visible := true;
Label1.Caption := ' << '
end;
end;end.
你看一下是否能满足你的要求