Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Вниз

Растягивающийся Edit   Найти похожие ветки 

← →
GH@ST   (2003-09-30 16:46) [0]

Может и простой вопрос..но чета вот столкнулся и ничего путного на ум не идет...как проще сделать чтобы Edit увеличивался вместе с вводимой строкой..и лучше еще и форму за собой растягивал..
Вот такой резиновый вопрос... :0)

---

← →
MBo   (2003-09-30 16:50) [1]

OnChange
TCanvas.TextWidth

---

← →
GH@ST   (2003-09-30 16:55) [2]

Это размер введенного текста?

---

← →
Chlavik   (2003-09-30 16:56) [3]

в он чендж пишеш
With TvoyEdit1 do Width:=Canvas.TextWidth(Text);

---

← →
GH@ST   (2003-09-30 16:58) [4]

Тогда понятно..спасибо

---

← →
GH@ST   (2003-09-30 17:18) [5]

procedure TForm1.Edit1Change(Sender: TObject);
begin
With Edit1 do if Width<Canvas.TextWidth(Text) then
begin
Width:=Canvas.TextWidth(Text);
if Form1.Width+Form1.Left<Screen.Width then Form1.Width:=Left+Width
else
begin
Form1.Width:=Left+Width;
Form1.Left:=Screen.Width-Form1.Width;
end;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c