Вопрос № 128945: Здравствуйте! Помогите пожалуйста советом-Как создать резиновый прямоугольник.
В программе DelphiWorld6 есть такой пример,но у меня не получается. При компиляции выходят ошибки. Помогите правильно написать код....Вопрос № 128953: Здравствуйте Уважаемые Эксперты!
Ответьте, пожалуйста, на следующий вопрос:
в компоненте "TChart" на этапе проектирования можно выбирать как отображается график ввиде точек или линий. Можно ли при выполнении программы изменять вид о...Вопрос № 128958: Здрасти. Как при каждом нажатию кнопки прочесеть последующею строку в файле. И показать в Label1. ...Вопрос № 128974: Привет Ексрерти.
У меня три вопроса:
1. Как мне узнать под каким именем запущен какойто процес, например 'explorer.exe'.
2. У меня нет постояного подключения к интернету. Как мне стянуть весь архив розсылки, штоб я мог дома искать нужние ...Вопрос № 129003: Здравствуйте, уважаемые эксперты! Возникла проблема с записью переменной типа "запись" в типизированный файл. Переменная s содержит четыре параметра типа string[20]. Помогите разобраться, пожалуйста. Заранее спасибо....Вопрос № 129114: Здравствуйте!!! Возник новый вопрос...
Допустим, есть простейшее приложение с одной кнопкой, по нажатии на которую выводится окно сообщения. Каким образом сделать так, чтобы координаты приложения на экране генерировались случайно или, хотя бы, задава...
Вопрос № 128.945
Здравствуйте! Помогите пожалуйста советом-Как создать резиновый прямоугольник.
В программе DelphiWorld6 есть такой пример,но у меня не получается. При компиляции выходят ошибки. Помогите правильно написать код.
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Бычихин Юрий Тихонович!
Нашел аналогичный пример - думаю, Вам подойдет. Взят отсюда.
Копия статьи в приложении.
В приложенном файле весь проект - я проверил, все работает.
Удачи!
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Здравствуйте Уважаемые Эксперты!
Ответьте, пожалуйста, на следующий вопрос:
в компоненте "TChart" на этапе проектирования можно выбирать как отображается график ввиде точек или линий. Можно ли при выполнении программы изменять вид отображения графика? Наверно можно было бы создать два графика с разным способом отображения, выводить одни и теже данные одновременно в оба и активировать при необходимости один или другой, но меня интересует только один график с изменяемым свойством.
За ранее благодарю за ответ, Геннадий.
Отправлен: 25.03.2008, 09:34
Вопрос задал: Geb2003 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Сазонов Михаил Владимирович
Здравствуйте, Geb2003!
Для этого надо создавать серии в Run-time. Кидаешь на форму Tchart и создаешь то что Вам надо. Рабочий код в приложении. Особой литературы нет, но в HELPE есть некоторое количество примеров, что в принципе для начало хватает. Рекомендую скачать в сети последние версии TeeChart. Они более быстродествующие, чем те что идут в комплекте.
У меня Delphi 2007 и дополнительно установлен TeeChart 8.01.
Удачи!
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Мокроусов Алексей Сергеевич! Код в приложении. Проект целиком в приложенном файле.
Удачи!
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 25.03.2008, 11:30 Оценка за ответ: 5 Комментарий оценки: Ок всё заработало спс
Отвечает: Genia007
Здравствуйте, Мокроусов Алексей Сергеевич!
Если у Вас простой файл txt, то всё очень просто:
var
Form1: TForm1; f: TextFile;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
If not EOF(f) then
begin
Readln(f, s); {считываем очередную строку}
Label1.Caption:= s;
end
else
Label1.Caption:= 'Конец файла!';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(f, 'proba.txt');
Reset(f);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(f);
end;
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 25.03.2008, 19:25
Вопрос № 128.974
Привет Ексрерти.
У меня три вопроса:
1. Как мне узнать под каким именем запущен какойто процес, например 'explorer.exe'.
2. У меня нет постояного подключения к интернету. Как мне стянуть весь архив розсылки, штоб я мог дома искать нужние ответи(как настроить FTP в totalcomander).
3. Где можна стянуть или пришлите на ящик книги где описание функции и процедуры по Delphi. У меня есть учебник "Функции и Процедуры по Delphi 4-5", но она демо.
Отвечает: PM_pilot
Здравствуйте, Мельник Виктор !
1 - IMHO, Вы как то вопрос неясно поставили....
2 - очень рекомендую скачать Delphi Russian Knowledge Base (DRKB) - www.drkb.ru там Вы найдете ответы на
большинство вопросов которые втречаються в розсылке.
3 - Поищите книгу Ксавье Пачеко, Стив Тейксейра - "Delphi 5 Руководство разработчика" она Вам поможет найти ответ почти на любой Ваш вопрос... :). Скачать ее можно например здесь
http://www.delphilab.ru/content/view/17/46/ . IMHO одна из лучших книг по DELPHI.......
Ответ отправил: PM_pilot (статус: 2-ой класс)
Ответ отправлен: 25.03.2008, 19:27
Вопрос № 129.003
Здравствуйте, уважаемые эксперты! Возникла проблема с записью переменной типа "запись" в типизированный файл. Переменная s содержит четыре параметра типа string[20]. Помогите разобраться, пожалуйста. Заранее спасибо.
Отвечает: Sosedov A.I.
Здравствуйте, Евчик Сергей Александрович!
Ошибка компиляции возникает из-за того, что Ваш файл объявлен как типизированный, а процедура Append работает только с текстовыми файлами (типа Text, или TextFile). Решить проблему можно, объявив файл типом Text и записывая в него по очереди все четыре поля записи. Однако файл потеряет типизацию, в нем уже не будет фиксированной длины записи, т.е. его станет сложнее обрабатывать при чтении.
Вам следует переходить на новые технологии работы с файлами с помощью объектов класса TFileStream библиотеки Classes, что намного удобнее и универсальнее. Посмотрите в приложении, как просто решается Ваша задача.
Приложение:
Ответ отправил: Sosedov A.I. (статус: 4-ый класс)
Ответ отправлен: 25.03.2008, 16:45 Оценка за ответ: 5 Комментарий оценки: Спасибо
Отвечает: Кудинов Антон Павлович
Здравствуйте, Евчик Сергей Александрович!
Возможно решение (обход) будет таким:
Reset(f);
Seek(f,filesize(f));
Ответ отправил: Кудинов Антон Павлович (статус: 3-ий класс)
Ответ отправлен: 25.03.2008, 19:56 Оценка за ответ: 5 Комментарий оценки: Спасибо
Вопрос № 129.114
Здравствуйте!!! Возник новый вопрос... Допустим, есть простейшее приложение с одной кнопкой, по нажатии на которую выводится окно сообщения. Каким образом сделать так, чтобы координаты приложения на экране генерировались случайно или, хотя бы, задавались вручную???
Отправлен: 26.03.2008, 08:31
Вопрос задал: KomissaRex (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, KomissaRex!
Для стандартных, насколько мне известно, такое не предусмотрено.
Предлагаю такой вариант решения:
1. Добавить к проекту Dialog: File -> New -> Other -> вкладка dialogs -> выбираете любой (Вам, скорее всего, подойдет Standard Dialog (Horizontal))
2. Меняете у него свойство Position на poDesigned - теперь он будет показываться в том месте экрана, где Вы его разместите во время разработки.
3. Теперь необходимо сделать, чтобы его позиция была случайной.
Для этого создаете событие OnShow для диалога и пишите в него следующий код:
randomize;
left := random(screen.Width);
top := random(screen.height);
4.Перед показом диалога также необходимо изменять надпись на нем (сообщение для пользователя).
Например, сообщение выводится в Label1, тогда код будет выглядеть так:
OKBottomdlg.Label1.Caption := 'Ваше сообщение';
5. Теперьпо нажатии на кнопку показываете этот диалог:
OKBottomdlg.showModal;
Скачать проект целиком можно из приложенного файла.
Удачи!
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 26.03.2008, 09:15 Оценка за ответ: 5 Комментарий оценки: Даже можно поставить 6+!!!!! Не ожидал такого подробного ответа, да еще и сприкрепленным файлом!!!!!! Огромное спасибо!!!!!!!!
Отвечает: Genia007
Здравствуйте, KomissaRex!
Генерировать координаты приложения случайно можно следующим способом:
Form1.Left:= Random(Screen.Width);{Координата слева от левого края экрана}
Form1.Top:= Random(Sceern.Height);{Координата сверху от верхнего края экрана}
Аналогично можно задавать и размер формы:
Form1.Height:= Random(Sceern.Height);
Form1.Width:= Random(Screen.Width);
Вручную задать координаты можно из Edita:
Form1.Left:= StrToInt(Edit1.Text);{Координата слева от левого края экрана}
Form1.Top:= StrToInt(Edit2.Textt);{Координата сверху от верхнего края экрана}
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 26.03.2008, 13:11 Оценка за ответ: 5 Комментарий оценки: Спасибо! Коротко и ясно... Хотя я, грамотей, сделал ошибку в письме: координаты не приложения, а окна сообщения... Sorry!!!