Один компьютерщик рассказывает другому:
- Представляешь,вчера возвращаюсь с работы чуть раньше обычного, а у жены в постели - незнакомый мужик. И глаза у обоих хитрые-хитрые... Я сразу неладное заподозрил,кинулся к компу, пытаюсь выйти в Интернет - а они, с%ки, пароль сменили...
При размещении на форме, создается TLabel, расположенный выше поля
редактирования. При перемещении поля редактирования, TLabel "следует" за ним.
При удалении поля редактирования, TLabel также удаляется. Имеется свойство
LabelCaption, так что вы можете редактировать заголовок Tlabel. Вероятно вам
потребуются и другие свойства TLabel, типа Font, но этот код только
демонстрирует технологию, так что развивайте его по своему усмотрению.
unit LblEdit;
interfaceuses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TLabelEdit = class(TEdit)
private
FLabel: TLabel;
procedure WMMove(var Msg: TWMMove); message WM_MOVE;
protectedprocedure SetParent(Value: TWinControl); override;
function GetLabelCaption: string; virtual;
procedure SetLabelCaption(const Value: string); virtual;
publicconstructor Create(AOwner: TComponent); override;
destructor Destroy; override;
publishedproperty LabelCaption: string read GetLabelCaption write
SetLabelCaption;
end;
procedureRegister;
implementationconstructor TLabelEdit.Create(AOwner: TComponent);
begininherited Create(AOwner);
{ создаем TLabel }
FLabel := TLabel.Create(nil);
FLabel.Caption := 'Edit label';
end;
procedure TLabelEdit.SetParent(Value: TWinControl);
begin{ убеждаемся, что TLabel имеет того же родителя что и TEdit }if (Owner = nil) ornot (csDestroying in Owner.ComponentState) then
FLabel.Parent := Value;
inherited SetParent(Value);
end;
destructor TLabelEdit.Destroy;
beginif (FLabel <> nil) and (FLabel.Parent = nil) then
FLabel.Free;
inherited Destroy;
end;
function TLabelEdit.GetLabelCaption: string;
begin
Result := FLabel.Caption;
end;
procedure TLabelEdit.SetLabelCaption(const Value: string);
begin
FLabel.Caption := Value;
end;
procedure TLabelEdit.WMMove(var Msg: TWMMove);
begininherited;
{ заставляем TLabel 'прилипнуть' к верху TEdit }if FLabel <> nilthenwith FLabel do
SetBounds(Msg.XPos, Msg.YPos - Height, Width, Height);
end;
procedureRegister;
begin
RegisterComponents('Samples', [TLabelEdit]);
end;
initialization{ Мы используем TLabel, поэтому для обеспечения
"поточности" необходима регистрация }
RegisterClass(TLabel);
end.
В статье описана технология создания TLabel и TEdit без контейнера, при котором TLabel автоматически перемещается вместе с полем редактирования.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.