Привязка Form1 к Label1

[KWN, lnc]

Мне надо чтоб Form1 с параметрами Height и Width менялся от длины Label1 просто у меня будет менятся сама текстовочка в Label.Caption у меня при измене он уходит в даль а мне надо чтоб менялась и сама форма уступая Label1 как это сделать заранее спасибо!

[KORN]

а не проще сделать перенос строки7 там есть wordwap (точно не помню как пишется)

[lexaltd]

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Label1.Caption := Edit1.Text;
 if (Label1.Left + Label1.Width) > Form1.ClientWidth  then
   Form1.ClientWidth := (Label1.Left + Label1.Width)+10;
end;

Можна так - на быструю руку,Stilet разве трудно под себя переделать - если есть пример(разве была поставлена конкретная задача?)

[Stilet]

lexaltd

Причем тут Эдит? А может автор программно менять решил текст Лабели?

Автору: Рекомендую изначально запомнить ширину лабели. Потом при изменении текста получать разницу предидущей ширины и текущей, ну и увеличивать ширину формы на этот коэффициент

[KWN, lnc]

Stilet да не так не интересно!ширина может быть на весь экран а может и нет! там я эффект делаю мне нужно всего лишь! то что я спрашиваю.. т.е. форма под лабел

[S@fer]

Если я правильно понял "форма под лабел", то можно сделать так

Uses unit1;

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.BorderStyle:=bsNone;
Form1.Label1.Left:=0;
Form1.Label1.Top:=0;
Form1.Label1.AutoSize:=True;
Form1.Label1.Caption:=Edit1.Text;
Form1.Height:=Form1.Label1.Height;
Form1.Width:=Form1.Label1.Width;
end;

[KWN, lnc]

вот еще один минус моей идеи! это то что форма не полностью привязывается к label1 извиняюсь что не сразу написал думал поймете!

мне надо чтоб он не уплотнял а еще при этом оставлял скажем +3 Width и + 4 Height

а так вообщет то отлично но правда почемуТ с кодом

Form1.Left:=Screen.Width - Form1.Width;
Form1.Top:=Screen.Height - Form1.Height;

уходит в даль! т.е. за границу...

результат
Form1.Label1.Left:=3;
Form1.Label1.Top:=4;
дает не то что мне надо!

[S@fer]

Form1.Left:=Screen.Width - Form1.Width;
Form1.Top:=Screen.Height - Form1.Height;

уходит в даль! т.е. за границу...

у меня перемещает форму в правый-нижний угол, и за границу не уходит

[KWN, lnc]

S@fer этот код перемещает форму в правый-нижний угол, и за границу уходит если текстовочка больше чем сама форма... вот поэому я и говорю мне нужен код который сможет менять форму по горизонтали т.е. по Label1

[S@fer]

Тогда может подойдет такое

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    b,b1:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var a:integer;
begin
Label1.Caption:=Edit1.Text;
a:=Label1.Left+Label1.Width;
b:=Form1.Width;
if a>b1 then
  if a>b then Form1.Width:=Form1.Width+Label1.Width
  else Form1.Width:=b
else Form1.Width:=b1;
Form1.Left:=Screen.Width - Form1.Width;
Form1.Top:=Screen.Height - Form1.Height;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
b1:=Form1.Width;
end;

end.