我有两个问题:
1 怎样将两个控件相关联,我想通过一个控件的Sender和一定的规则(例如Name属性,一个叫edit1,另一个就叫aedit1,或者其他什么方法)找到另一个控件,并修改另一个控件内容。这样的控件组合我要用很多次,不想一组一组写代码。
2 怎样让edit中内容靠右对齐,或者居中也行
3 怎么在Label中显示下标???
1 怎样将两个控件相关联,我想通过一个控件的Sender和一定的规则(例如Name属性,一个叫edit1,另一个就叫aedit1,或者其他什么方法)找到另一个控件,并修改另一个控件内容。这样的控件组合我要用很多次,不想一组一组写代码。
2 怎样让edit中内容靠右对齐,或者居中也行
3 怎么在Label中显示下标???
2、在align中进行对齐的设置就行了。
3、一个label显示正文,再放一个做写标啊。
然后你可以在任何地方使用这个Frame
第一个问题应该可以通过编写onchange事件实现,其他的不知道
------------
我是菜鸟,但是不能飞~~~~~
TEdit(edit1.tag).text := '.......';
SetWindowLong(Edit1.handle, GWL_STYLE,GetWindowlong(edit1.Handle, GWL_STYLE) +ES_CENTER);
SetWindowLong(Edit1.handle, GWL_STYLE,GetWindowlong(edit1.Handle, GWL_STYLE) +ES_RIGHT);
..........
2、在align的属性中设置居中。
3 看看帮助吧!都有!
// support Alignment propertyinterfaceuses Messages, Windows, SysUtils, Classes, Controls, Forms, StdCtrls;type
TEditEx = class(TCustomEdit)
private
{ Private declarations }
FAlignment: TAlignment;
protected
{ Protected declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure Loaded; override;
procedure SetAlignment(Value: TAlignment);
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetControlsAlignment: TAlignment; override;
published
{ Published declarations }
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property Align;
property Anchors;
property BevelEdges;
property BevelInner;
property BevelKind default bkNone;
property BevelOuter;
property BiDiMode;
property BorderStyle;
property Color;
property Constraints;
property Ctl3D;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property HideSelection;
property ImeMode;
property ImeName;
property MaxLength;
property OEMConvert;
property ParentBiDiMode;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabOrder;
property TabStop;
property Text;
property Visible;
property OnChange;
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Custom', [TEditEx]);
end;constructor TEditEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ParentBackground := False;
end;procedure TEditEx.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;destructor TEditEx.Destroy();
begin
inherited Destroy();
end;function TEditEx.GetControlsAlignment: TAlignment;
begin
Result := FAlignment;
end;procedure TEditEx.Loaded;
begin
inherited Loaded;
Modified := False;
end;procedure TEditEx.SetAlignment(Value:TAlignment);
begin
if FAlignment <> Value then
begin
FAlignment := Value;
RecreateWnd;
end;
end;end.