Форум: "Основная";
Текущий архив: 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.009 c