Текущий архив: 2003.10.13;
Скачать: CL | DM;
Вниз
Растягивающийся 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
