Question

delphi 房间怎么立体列表，不要GRID显示；不同状态不同颜色显示，怎么做，有实例更好

Answer 1

panel

追问

不懂；可以给个实例吗？感谢十分；

追答

Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;

Type
TForm1 = Class(TForm)
BitBtn1: TBitBtn;
Procedure BitBtn1Click(Sender: TObject);
Private
Procedure DoPanClick(Sender: TObject);
Public
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.BitBtn1Click(Sender: TObject);
Var
H, W, X, Y, aTop, aleft: Integer;
Begin
H := 50;
W := 80;
For Y := 0 To 2 Do
Begin
For X := 0 To 4 Do
Begin
With Tpanel.Create(Self) Do
Begin
aleft := Y * (W + 10);
aTop := X * (H + 10);
SetBounds(aleft, aTop, W, H);
parent := self;
Caption := Format('%d-%d', [X, Y]);
Hint := Format('%d-%d', [X, Y]);
ShowHint := True;
OnClick := DoPanClick;
End;
End;
End;
End;

Procedure TForm1.DoPanClick(Sender: TObject);
Begin
If (Sender Is Tpanel) Then
Begin

End;

End;

End.