Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.304 RSS
←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.304 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 360
от 20.01.2006, 01:24

Администратор:Калашников О.А.
В рассылке:Подписчиков: 237, Экспертов: 57
В номере:Вопросов: 4, Ответов: 11

Вопрос № 33247: Здравствуйте,уважаемые эксперты!! Как можно сделать чтобы форму нельзя было развернуть во весь экран biMaximize:=False не подходит есть ли другой способ?...
Вопрос № 33259: Уважаемые эксперты! Как мне написать программу в которой есть Memo1 и Button1.click-там нужно написать код,чтобы Memo1 открыл текстовой файл из Интернета (http://www.myserver.net/text.txt)? Спасибо за ответы!...
Вопрос № 33267: Здравствуйте,уважаемые эксперты!!! Может у кого-нибудь есть большой архив с иконками? Кидайте на klemin_sergey@mail.ru...
Вопрос № 33272: Доброго времени суток. Уважемые эксперты как сделать так, чтобы окно только при наличии флага окно устанавливалось поверх всех. Заранее спасибо ...

Вопрос № 33.247
Здравствуйте,уважаемые эксперты!!
Как можно сделать чтобы форму нельзя было развернуть во весь экран biMaximize:=False не подходит есть ли другой способ?
Отправлен: 14.01.2006, 13:59
Вопрос задал: Dushin Igor (статус: 3-ий класс)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Hello, Dushin Igor!
Добавьте ещё вот это: BorderStyle:=bsSingle;
---------
Работа - не волк, а произведение силы на расстояние!
Ответ отправил: Ерёмин Андрей (статус: Профессионал)
Отправлен: 14.01.2006, 14:05
Отвечает: Меркулов Алексей
Здравствуйте, Dushin Igor! В событие OnResize пропишите:
Form1.Heigth:=...; ваше значение
Form1.width:=...; ваше значение
Form1.WindowState:=wsNormal;

Ответ отправил: Меркулов Алексей (статус: 2-ой класс)
Отправлен: 14.01.2006, 22:17
Отвечает: Denisss
Здравствуйте, Dushin Igor!

Заполните свойство Constrains формы:
MinWidth - Минимальная ширина,
MaxWidth - Максимальная ширина,
MinHeight - Минимальная высота,
MaxHeight - Максимальная высота.

Также можно:
поставьте свойство Borderstyle="bsDialog."

Удачи!
Ответ отправил: Denisss (статус: Специалист)
Отправлен: 15.01.2006, 11:24
Оценка за ответ: 5
Отвечает: Lexus
Здравствуйте, Dushin Igor!

form1.Constraints.MaxWidth:=form1.width;
form1.Constraints.MaxHeight:=form1.height;

Только будет возникать такой интересный эффект: форма переместится в левый верхний угол,когда нажмут кнопку максимизирования, а размеры не изменятся.
Ответ отправил: Lexus (статус: 1-ый класс)
Отправлен: 15.01.2006, 20:43

Вопрос № 33.259
Уважаемые эксперты!
Как мне написать программу в которой есть Memo1 и
Button1.click-там нужно написать код,чтобы Memo1 открыл текстовой файл из Интернета (http://www.myserver.net/text.txt)?
Спасибо за ответы!
Отправлен: 14.01.2006, 17:27
Вопрос задал: Sassoft (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, Sassoft!
Посмотрите вот здесь: http://www.delphi.int.ru/modules.php?name=questions&action=view&id=19. А вот пример программы, которая скачивает файл (с комментариями). После закачки просто откройте его в TMemo: Memo.Lines.LoadFormFile('path_to_downloaded_file');
---------
Работа - не волк, а произведение силы на расстояние!
Ответ отправил: Ерёмин Андрей (статус: Профессионал)
Отправлен: 14.01.2006, 17:39
Оценка за ответ: 5

Вопрос № 33.267
Здравствуйте,уважаемые эксперты!!!
Может у кого-нибудь есть большой архив с иконками? Кидайте на klemin_sergey@mail.ru
Отправлен: 14.01.2006, 20:49
Вопрос задал: Клёмин Сергей (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Сергей Т.
Здравствуйте, Клёмин Сергей!
Поищи на сайтах torry.net и goal.h15.ru.
Ответ отправил: Сергей Т. (статус: 1-ый класс)
Отправлен: 14.01.2006, 20:57
Отвечает: One
Здравствуйте, Клёмин Сергей!
Чтож ты так неаккуратно-то, ведь забьют весь ящик. Да и светить мыло неразумно. На этом сайте мона скачать иконки для оформления прог: http://www.noil.pri.ee, не пожалеешь.
---------
Компьютер должен работать, а человек - DOOMать.
Ответ отправил: One (статус: 1-ый класс)
Отправлен: 14.01.2006, 22:56
Оценка за ответ: 5

Вопрос № 33.272
Доброго времени суток. Уважемые эксперты как сделать так, чтобы окно только при наличии флага окно устанавливалось поверх всех.
Заранее спасибо
Отправлен: 14.01.2006, 22:33
Вопрос задал: Меркулов Алексей (статус: 2-ой класс)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Minor
Здравствуйте, Меркулов Алексей!
Создаете на форме например CheckBox и в его событии OnClick прописываете следующее

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then Form1.FormStyle:=fsStayOnTop
else Form1.FormStyle:=fsNormal;
end;
---------
Не руби сук, на котором сидишь! Вообще слезь с дерева, человек!
Ответ отправил: Minor (статус: 2-ой класс)
Отправлен: 15.01.2006, 01:50
Отвечает: Brutaller
Здравствуйте, Меркулов Алексей!
Можно например кинуть на форму CheckBox и в его событии OnClick написать следующее:

procedure TForm1.StayOnTopCheckBoxClick(Sender: TObject);
begin
if StayOnTopCheckBox.Checked then

with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE)
else

with Form1 do
SetWindowPos(Handle,
HWND_NOTOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

end;
Ответ отправил: Brutaller (статус: 1-ый класс)
Отправлен: 15.01.2006, 02:33
Оценка за ответ: 5
Отвечает: Denisss
Здравствуйте, Меркулов Алексей!

вот такой вариант (плох тем, что когда такое реализуется в одну строчку, то далее можно немного запутаться зачем это надо):
// CheckBox1.OnClick
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
// Если Checked, то установится fsStayOnTop, иначе установится
// fsNormal
  FormStyle:= TFormStyle(ord(fsStayOnTop) * abs(ord(CheckBox1.Checked)));
end;

Удачи!
Ответ отправил: Denisss (статус: Специалист)
Отправлен: 15.01.2006, 10:59
Оценка за ответ: 5
Отвечает: Сазонов Михаил Владимирович
Здравствуйте, Меркулов Алексей!
Я это делал. Но дополнительно я менял и прозрачность окна. Я думаю код
понятен. Если есть вопросы, постараюсь ответить!
Михаил.

Приложение:

Ответ отправил: Сазонов Михаил Владимирович (статус: 1-ый класс)
Отправлен: 16.01.2006, 09:52
Оценка за ответ: 5

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное