房间信息用什么控件显示啊？？？ 找免费会员管理软件
2楼: 有没有哪位老兄知道啊，你有现成的控件给我发一份啊sxlaq@163.com 如金蝶财务软件介绍
3楼: 就用stringgrid，在他的重画事件里算准了坐标自己写，用textout就行，想画图都可以
用Listview也可以
4楼: 一行一个房间最合适，这样可选的网格控件比较 多，实现也比较容易
5楼: to :dobug
有实例吗，或者是原代码，谢谢怎么画啊，还有就是背影色怎么改变？
to: icc,
一行显是一个的话，我用DBGrid就行了。，我想要的是一个单元格显示一个。
6楼: 实在不行自己做控件吧
可能以后也会用得到
财务软件版7楼: 没有事现成的吗，我现在不会自己做控件啊．？？哪个帮帮我啊
8楼: 我以前用SrcollBox，在里面动态生成TImage,然后挥之包房状态.自己绘制吧.不过需要大量的KEYUP,KEYDOWN事件,如果可能的话你可以做成一个组件,不是很费劲的.
9楼: 我最近也碰到相关问题，希望那位大虾能出来指教！
10楼: 自已现顶一次，那位大侠帮帮忙!!!
11楼: 联众里的游戏大厅的显示就不错
12楼: 我用的Tshape 中的Rect 改编，加多一个Caption,遗迹 相关属性即可。
每个房间建立一个实例，根据房间号设置相关属性，很好控制。 如免费会员管理软件
13楼: 写什么控件，往上扔dbtext
财务软件版14楼: 估计楼台要自己写控件了。
15楼: 这样可以显示三行
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with stringgrid1.Canvas do
begin
textout(rect.Left + 30, rect.Top + 2, ＇＇房号＇＇);
textout(rect.Left + 30, rect.Top + 20, ＇＇房态＇＇);
textout(rect.Left + 30, rect.Top + 40, ＇＇房价＇＇);
end;
end;
16楼: 用tdrawgrid自已画好了
17楼: 同意chen_liang
18楼: to:chen_liang谢谢,用你的方法做好了,不一个问题.你知道怎么设置StringGrid内单个网格的颜色吗？？？？
19楼: 我的搞定了
with Stringgird1 Canvas do
begin
if (ACol=1)and(ARow=2) then
Brush.color:=clRed;
FillRect(Rect);
textout(rect.Left + 3, rect.Top + 2, inttostr(Acol)+＇＇,＇＇+inttostr(ARow));
textout(rect.Left + 3, rect.Top + 20, ＇＇房态＇＇);
textout(rect.Left + 3, rect.Top + 40, ＇＇房价＇＇);
end;
20楼: 我的搞定了
with Stringgird1 Canvas do
begin
if (ACol=1)and(ARow=2) then
Brush.color:=clRed;
FillRect(Rect);
textout(rect.Left + 3, rect.Top + 2, inttostr(Acol)+＇＇,＇＇+inttostr(ARow));
textout(rect.Left + 3, rect.Top + 20, ＇＇房态＇＇);
textout(rect.Left + 3, rect.Top + 40, ＇＇房价＇＇);
end;
联系我们
