盒子论坛 v2.1

SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE)
or ES_RIGHT);
  Edit1.Refresh;
ES_LEFT    靠左
ES_CENTER  居中
ES_RIGHT   靠右
----------------------------------------------

作者：

gaox (飞扬的羽)	★☆☆☆☆	-
	盒子活跃会员

2003/12/23 11:46:00

2楼：

thanks,bios 兄。
我试试。
---------------------
你就是这么不苯我能把你怎样?!

----------------------------------------------
-简单最美！

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 15:05:13

3楼：

我給Tedit添加了alignment屬性﹐代碼下:
unit QMyedit;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TMyedit = class(Tedit)
  private
    { Private declarations }
    FAlignment: TAlignment;
  protected
    { Protected declarations }
  public
    { Public declarations }

  published
    { Published declarations }
    procedure CreateParams(var Params: TCreateParams);override;
    procedure SetAlignment(Value: TAlignment);
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyedit]);
end;

procedure TMyedit.SetAlignment(Value: TAlignment);
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;

procedure TMyedit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[Boolean, TAlignment] of DWORD =
    ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER));
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style  or Alignments[UseRightToLeftAlignment, FAlignment] ;
  end;
end;

end.
----------------------------------------------
-

﹗﹗﹗

作者：

leon7808 (烟灰)	★☆☆☆☆	-
	普通会员

2003/12/24 15:09:11

4楼：

to 小黑

TEdit可以自定义属性，那能不能给TreeView的每个Node加个字符型的属性？
----------------------------------------------
-

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 15:38:52

5楼：

加一個字符型的屬性﹐什么意思﹖你說說你的用意﹖
----------------------------------------------
-

﹗﹗﹗

作者：

leon7808 (烟灰)	★☆☆☆☆	-
	普通会员

2003/12/24 15:41:52

6楼：

我想在TreeView显示表字段‘名称’的值，但在表中‘名称’是可重复的
编号是不能重复的，而每个Node的Text只能存放‘名称’，我想给每个Node
多加个属性来存放‘编号’，谢谢
----------------------------------------------
-

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 16:12:01

7楼：

可以借用selectindex和stateindex屬性嗎﹖
----------------------------------------------
-

﹗﹗﹗

作者：

leon7808 (烟灰)	★☆☆☆☆	-
	普通会员

2003/12/24 16:15:38

8楼：

Selectindex要用，Stateindex没用，应该可以

是这样吗： Stateinde := StrToInt(Query.FieldByName('编号').AsString)
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/24 16:15:51

8楼：

可以加指针：
procedure TForm1.Btn1Click(Sender: TObject);
Const
MyDocDir = 'C:\My Documents';
PersonDir = '3hSoft';
Var
Var
I : Word;
SubNodeName : array [1..5] of ShortString;
RootNode, SubNode : TTreeNode;
P : PString;
begin
SubNodeName[1] := '便笺';
SubNodeName[2] := '发件箱';
SubNodeName[3] := '联系人';
SubNodeName[4] := '任务';
SubNodeName[5] := '日记';
TV1.Items.Clear;
TV1.Items.BeginUpdate;
New(P);
P^ := MyDocDir + '\' + PersonDir;
RootNode := TV1.Items.AddObject(Nil, '个人文件夹', P);
// 此 Node 的图标已对 Images 属性中取第 0 个了。
For I := 1 to 5 do
begin
New(P);
P^ := MyDocDir + '\' + PersonDir + '\' + SubNodeName[I];
SubNode := TV1.Items.AddChildObject(RootNode, SubNodeName[I], P)
;
;
// 如果不想使用图标的话请删除以下两行
SubNode.ImageIndex := I;
SubNode.SelectedIndex := I;
end;
TV1.Items.EndUpdate;
end;
----------------------------------------------

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 16:26:05

9楼：

不用那么復雜﹐不過可以學習﹐借用stateindex看看
不過我沒用過﹐具體的還要你自己去用,行就回復一下﹐謝謝
----------------------------------------------
-

﹗﹗﹗

作者：

leon7808 (烟灰)	★☆☆☆☆	-
	普通会员

2003/12/24 16:29:35

10楼：

嘻嘻，用Stateindex就可以了

这样不用每次都先取父节点的TEXT再到表中就查找，找到再将编号赋值那么麻烦

谢谢大家
----------------------------------------------
-

作者：

gaox (飞扬的羽)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 16:47:33

11楼：

to bios兄
老兄，你给我的方法我试过了，不管用呀！
再说，SetWindowLong 这个函数，我在f1中都没查到，怎么用，
什么用法，还望指点w。
thanks bios兄（或者我说错了——是姐姐！？）

----------------------------------------------
-简单最美！

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/24 16:51:49

12楼：

偶也试了在DELPHI7下确实不行！
那时大富翁上复制来的，试试 3楼的

偶都是用MEMO控件不然太麻烦了！
----------------------------------------------

作者：

gaox (飞扬的羽)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 16:55:48

13楼：

还是感谢你，bios兄，（我前当你是哥们了：〉）
----------------------------------------------
-简单最美！

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/24 16:59:59

14楼：

gaox﹕
你想怎么樣﹐老對bios加注釋()﹐你到底想怎么樣。
不過我也好奇!!!
----------------------------------------------
-

﹗﹗﹗

信息

登陆以后才能回复