1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG771fc3749066f1df9be07aaa82d27631}</span></span>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

  type TEditableLabelItem=(elLabel, elEdit);
  type TEditableLabelClickEvent = procedure( Item: TEditableLabelItem ) of object;
  type TEditableLabel=class(TLabel)
    private
      Edit: TEdit;
      VOnClick: TEditableLabelClickEvent ;

      procedure LabelClick(Sender: TObject);
      procedure EditClick(Sender: TObject);
    public
      constructor Create(AOwner: TWinControl); override;

      property OnClick: TEditableLabelClickEvent read VOnClick write VOnClick;
  end;

constructor TEditableLabel.Create(AOwner: TWinControl);
begin
  inherited Create(AOwner);
  Self.OnClick:=LabelClick;

  Edit:=TEdit.Create(AOwner);
  Edit.Parent:=AOwner;
  //Edit Style ändern
  Edit.Visible:=False;
  Edit.OnClick:=EditClick;
end;

procedure TEditableLabel.LabelClick(Sender: TObject);
begin
  Edit.Text:=Self.Caption;
  Edit.Visible:=True;
  Self.Visible:=False;
  if Assigned(VOnClick) then
    VOnClick(elLabel);
end;

procedure TEditableLabel.EditClick(Sender: TObject);
begin
  if Assigned(VOnClick) then
    VOnClick(elEdit);
end;

[...]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:

unit MyControls;

interface

uses
SysUtils,Classes,ExtCtrls,Controls,StdCtrls;

type

  TMyBoundEdit = class (TEdit)
   private
    { Private-Deklarationen }
     function GetLeft :Integer;
     function GetTop  :Integer;
     procedure SetLeft(const Value: Integer);
     procedure SetTop(const Value: Integer);
     procedure SetHeight(const Value: Integer);
     procedure SetWidth(const Value: Integer);

  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
    { Public-Deklarationen }
  published
    property Top: Integer read GetTop write SetTop;
    property Left: Integer read GetLeft write SetLeft;
    { Published-Deklarationen }

end;

TMyBoundLabel = class (TLabel)
  private
    { Private-Deklarationen }
     function GetLeft :Integer;
     function GetTop  :Integer;
     procedure SetLeft(const Value: Integer);
     procedure SetTop(const Value: Integer);
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
      constructor Create(AOwner: TComponent); override;
  published
    property Top: Integer read GetTop write SetTop;
    property Left: Integer read GetLeft write SetLeft;
    { Published-Deklarationen }
  end;

TMyLabelEdit = class (TWinControl)
  private
    { Private-Deklarationen }
    FMyEdit:TMyBoundEdit;
    FMyLabel:TMyBoundLabel;
  protected
    { Protected-Deklarationen }
    procedure SetParent(AParent: TWinControl); override;
//    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure SetName(const Value: TComponentName); override;
  public
    { Public-Deklarationen }
      constructor Create(AOwner: TComponent); override;
//      destructor Destroy(AOwner: TComponent); override;
  published
      property MyEdit: TMyBoundEdit read FMyEdit ;
      property MyLabel: TMyBoundLabel read FMyLabel ;
    { Published-Deklarationen }
  end;


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('My Controls', [TMyLabelEdit]);
end;

constructor TMyBoundEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Name := 'SubEdit';  { do not localize }
  SetSubComponent(True);
  if Assigned(AOwner) then
    Text :=  AOwner.Name;
end;

procedure TMyBoundEdit.SetHeight(const Value: Integer);
begin
inherited height:= Value;
end;

procedure TMyBoundEdit.SetWidth(const Value: Integer);
begin
inherited width:= Value;
end;

procedure TMyBoundEdit.SetTop(const Value: Integer);
begin
inherited top:= Value;
end;

procedure TMyBoundEdit.SetLeft(const Value: Integer);
begin
inherited left:=Value;
end;

function TMyBoundEdit.GetTop  :Integer;
begin
Result := inherited Top;
end;

function TMyBoundEdit.GetLeft  :Integer;
begin
Result := inherited Left;
end;

constructor TMyBoundLabel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Name := 'SubLabel';  { do not localize }
  SetSubComponent(True);
  if Assigned(AOwner) then
    Caption :=  AOwner.Name;
end;

function TMyBoundLabel.GetTop  :Integer;
begin
Result := inherited Top;
end;

function TMyBoundLabel.GetLeft  :Integer;
begin
Result := inherited Left;
end;

procedure TMyBoundLabel.SetTop(const Value: Integer);
begin
inherited top:= Value;
end;

procedure TMyBoundLabel.SetLeft(const Value: Integer);
begin
inherited left:=Value;
end;

constructor TMyLabelEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  if Assigned(FMyLabel) then exit;
  FMyLabel := TMyBoundLabel.Create(Self);
  FMyLabel.FreeNotification(Self);

  if Assigned(FMyEdit) then exit;
  FMyEdit := TMyBoundEdit.Create(Self);
  FMyEdit.FreeNotification(Self);
end;

{procedure TMyLabelEdit.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (AComponent = FMyLabel) and (Operation = opRemove) then
    FMyLabel := nil;
end;         }

procedure TMyLabelEdit.SetName(const Value: TComponentName);
begin
  if (csDesigning in ComponentState) and ((FMyLabel.GetTextLen = 0) or
     (CompareText(FMyLabel.Caption, Name) = 0)) then
    begin
      FMyLabel.Caption := Value;
      FMyEdit.Text  := Value;
    end;
  inherited SetName(Value);
end;

procedure TMyLabelEdit.SetParent(AParent: TWinControl);
begin
  inherited SetParent(AParent);
  if FMyEdit = nil then exit;
  FMyEdit.Parent := AParent;
  FMyEdit.Visible := True;

  if FMyLabel = nil then exit;
  FMyLabel.Parent := AParent;
  FMyLabel.Visible := True;
end;

initialization

finalization


end.