Разговаривают два юзера:
- Сушай, я тут на днях прочитал про страшный вирус, который передается по электронной почте... И вспомнил как я читал про вирус, который каким-то хитрым образом сажает трубу у монитора, похоже это все из одной страшной серии...
- Не мужик, я про другой вирус слыхал. Перехватывает он, значит, мыша, захлестывает ейным шнурком юзера за шею и ну душить, понимашь. Воооо как! А ты трубу, трубу...
Следующий компонент автоматически подстраивается под текст, вводимый в него:
unit ExpandingEdit;
interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TExpandingEdit = class(TEdit)
private
FCanvas: TControlCanvas;
protectedprocedure Change; override;
publicconstructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
procedureregister;
implementationconstructor TExpandingEdit.Create(AOwner: TComponent);
begininherited Create(AOwner);
FCanvas := TControlCanvas.Create;
FCanvas.Control := Self;
end;
destructor TExpandingEdit.Destroy;
begin
FCanvas.Free;
inherited Destroy;
end;
procedure TExpandingEdit.Change;
const
EditMargin = 8;
var
W: Integer;
begininherited Change;
ifnot HandleAllocated then
Exit;
FCanvas.Font := Font;
W := FCanvas.TextWidth(Text) + (2 * EditMargin);
if (Width < W) then
Width := W;
end;
procedureregister;
begin
RegisterComponents('Samples', [TExpandingEdit]);
end;
end.
Статья Как автоматически расширить TEdit раздела Компоненты и Классы TEdit может быть полезна для разработчиков на delphi & pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.