 |
|
12.12.2009, 17:49
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
С нами:
9176827
Репутация:
29
|
|
Сообщение от DimkO
Сообщение от mobilka
подскажите как сделать автопрокрутку в listbox.
если я правильно понял,то в listbox есть свойство listbox1.ScrollWidth :integer;потом уже сам подгоняеш под длину строки,а вертикальная появляется сама
ScrollWith - это логическая ширина списка, от которой зависит появится горизонтальная полоса прокрутки или нет.
Как я понимаю, просили не отобразить полосы прокрутки, а показать как сделать так, чтобы при добавлении нового элемента он был виден за счет прокрутки.
Не знаю насколько такое решение грамотно, но можно при добавлении элемента в ListBox изменять свойство TopIndex (первая сверху отображаемая строчка) на индекс последней строки.
Код:
procedure AddListBoxItem;
var
data: string;
begin
{ здесь производятся нужные действия для формирования строки,
которая будет добавлена }
ListBox1.add(data);
ListBox1.TopIndex := ListBox1.Items.Count -1;
end;
В принципе все прокрутится  Хотя стоило бы наверное от индекса последней строки отнимать количество отображаемых строк.
|
|
|
12.12.2009, 17:52
|
|
Новичок
Регистрация: 11.12.2009
Сообщений: 13
С нами:
8639976
Репутация:
0
|
|
Люди как можно считать текст из односстрочного редактора edit средствами WinApi Пробывал просто
Код:
GetwindowText(h,buf,255)
но не получилось. Подсткажите. И еще вопрос: как можно распознать типа кнопки? делаю
Код:
getclassname(wnd,op,255);
возвращает button на маркеры, чек-кнопки. Надо както распознать. |
|
|
|
12.12.2009, 18:23
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
С нами:
9176827
Репутация:
29
|
|
Сообщение от Adalt
Люди как можно считать текст из односстрочного редактора edit средствами WinApi Пробывал просто
Код:
GetwindowText(h,buf,255)
но не получилось. Подсткажите.
Код:
//text - переменная типа string
SetLength(text, 80);
GetWindowText(edit1.Handle, pansichar(text), 80);
Вроде бы так...
|
|
|
|
12.12.2009, 19:00
|
|
Новичок
Регистрация: 11.12.2009
Сообщений: 13
С нами:
8639976
Репутация:
0
|
|
неполучилось  В текстовую перменную ложит одни пробелы. пытался вывести через showmessage размер диалога был большой а ничо не написано. |
|
|
|
13.12.2009, 11:30
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
С нами:
9399214
Репутация:
52
|
|
Adalt
поробуй не строку передавать а массив чаров типа
Код:
Str:array[0..255] or char;
дожно быть все нормально
Последний раз редактировалось transserg; 13.12.2009 в 11:55..
|
|
|
|
13.12.2009, 14:27
|
|
Участник форума
Регистрация: 23.10.2009
Сообщений: 103
С нами:
8710432
Репутация:
7
|
|
Код:
begin
AssignFile(Text, 'data/text1.txt');
Reset(Text);
while not Eof(Text) do
begin
ReadLn(Text, Data);
Edit1.Text := Data;
end;
CloseFile(Text);
end.
Ошибка в такой легкой задачи... все компилиться, но текст из фпйла не выводит в эдит, хотя текст в файле есть. Что делать? |
|
|
|
13.12.2009, 14:29
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
С нами:
8641138
Репутация:
0
|
|
Сообщение от Thenno
Как я понял, сумма квадратов это n^2 + (n+1)^2 и так далее.
Код:
const
n=3;
var
a,i,k:integer; {если могут быть дробные, то integer меняй на real}
begin
k:=0;
for i:=1 to n do
begin
readln (a);
if a>1 then
k:=k+sqr (a);
end;
writeln ('Sum is ', k);
readln; //для ТурбоПаскаля
end.
P.S А вообще, примеров решения подобных задач полно в Googl'е. И я еще не говорю про учебники. Спасибо за решение. Да, может инфы и куча, но я не в силах сейчас все освоить. В связи с этим карантином одна практика, лекций нет...никто ничего не понимает...спасаются кто как может.
|
|
|
|
13.12.2009, 14:35
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
С нами:
8641138
Репутация:
0
|
|
Need your help again...
1)Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25.
rus:Составьте программу для вычисления суммы всех трехзначительных чисел, кратных 25.
2)Для кожного стовпця матриці знайти значення та індекс максимального елемента.
rus:Для каждого столбца матрицы найти значение и индекс максимального элемента.
помогите, плз....
|
|
|
|
13.12.2009, 14:59
|
|
Участник форума
Регистрация: 26.11.2007
Сообщений: 266
С нами:
9714566
Репутация:
341
|
|
1)Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25.
rus:Составьте программу для вычисления суммы всех трехзначительных чисел, кратных 25.
Код:
var
a:array[1..1000] of integer;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Memo1.Clear;
for i:=1 to 900 do begin
a[i]:=99+i;
Memo1.Lines.Add(IntToStr(a[i]));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
for i:=1 to 900 do begin
if a[i] mod 25=0 then begin
s:=s+a[i];
end;
end;
Label1.Caption:=IntToStr(s);
end;
2)Для кожного стовпця матриці знайти значення та індекс максимального елемента.
rus:Для каждого столбца матрицы найти значение и индекс максимального элемента.
Как понять, для каждого столбца матрици найти значение? Какое значение то ?
Последний раз редактировалось [Dezzter]; 13.12.2009 в 15:08..
|
|
|
|
13.12.2009, 15:13
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
С нами:
8641138
Репутация:
0
|
|
Сообщение от [Dezzter]
Код:
var
a:array[1..1000] of integer;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Memo1.Clear;
for i:=1 to 900 do begin
a[i]:=99+i;
Memo1.Lines.Add(IntToStr(a[i]));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
for i:=1 to 900 do begin
if a[i] mod 25=0 then begin
s:=s+a[i];
end;
end;
Label1.Caption:=IntToStr(s);
end;
Как понять, для каждого столбца матрици найти значение? Какое значение то ? Я понятия не имею...это как раз то качество моего препода, которое ненавижу...у него настолько условие задач непонятные, что нереально почти понять что он от тебя хочет...(
ладно, спасибо ОГРОМНОЕ и на этом!
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [Dezzter]](/avatars/avatar45529.jpg?1753672){kind=avatar}
Похожие темы
Линейный вид
