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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 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.308 подписчиков
0 за неделю
←   Все выпуски   →

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


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 408
от 09.03.2006, 14:10

Администратор:Калашников О.А.
В рассылке:Подписчиков: 262, Экспертов: 66
В номере:Вопросов: 3, Ответов: 7

Вопрос № 36649: Здраствуйте. Как програмно перевести курсор в конец строки Edit'a?...
Вопрос № 36650: Всем привет ! f:=TfileStream.Create('Game.exe', fmOpenReadWrite); f.Seek(00452450, soFromBeginning); f.Read(s, sizeof(s)); s:=$EB; //Почему вот здесь можно поставить лишь 2 символа если будет больше delphi выдаст ошибку ! Как ето ис...
Вопрос № 36681: Доброго времени суток господа эксперты!!! У меня к вам вопросы: 1. Как можно сцепить две формы и чтобы одна двигалась за другой (как WinAMP'e). Слышал что для этого надо определить прилипание (пересечение двух окон), а потом перехв...

Вопрос № 36.649
Здраствуйте.
Как програмно перевести курсор в конец строки Edit'a?
Отправлен: 03.03.2006, 14:51
Вопрос задал: Yarking (статус: 1-ый класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, Yarking!
Очень легко:

Edit1.SetFocus;
Edit1.SelStart:=Length(Edit1.Text);
Edit1.SelLength:=0;


---------
Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор)
Отправлен: 03.03.2006, 15:07
Оценка за ответ: 5
Отвечает: Alex_Nick
Здравствуйте, Yarking!

Один из вариантов такой:
edit1.SelStart:=length(edit1.Text);
свойство SelStart - позиция начала выделения текста;
свойство SelLength - длина выделения текста;
Ответ отправил: Alex_Nick (статус: 1-ый класс)
Отправлен: 03.03.2006, 23:48
Отвечает: komatoz
Здравствуйте, Yarking!
Edit.selstart:=length(edit.text);
Ответ отправил: komatoz (статус: 2-ой класс)
Отправлен: 04.03.2006, 03:06

Вопрос № 36.650
Всем привет !
f:=TfileStream.Create('Game.exe', fmOpenReadWrite);
f.Seek(00452450, soFromBeginning);
f.Read(s, sizeof(s));
s:=$EB; //Почему вот здесь можно поставить лишь 2 символа если будет больше delphi выдаст ошибку ! Как ето исправить ?
F.Seek(00452450, soFromBeginning);
f.Write(s, sizeof(s));
Отправлен: 03.03.2006, 15:10
Вопрос задал: Tamashev Denis M (статус: 1-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Zubex
Здравствуйте, Tamashev Denis M!
Какую ошибку выдает?
Я подозреваю что s у Вас WORD, а его максимальное значение $FF,
поставьте Integer или еще лучше Cardinal...
И еще зачем Вам второй раз перемещать позицию сначала (F.Seek(00452450, soFromBeginning) ) если можно переместить ее на SizeOf(s) назад:
F.Seek(-SizeOf(2), soFromCurrent)
Удачи!
---------
Если не знаешь что сказать - лучше промолчи...
Ответ отправил: Zubex (статус: 5-ый класс)
Отправлен: 03.03.2006, 15:48
Оценка за ответ: 5
Отвечает: Злоумышленник
Здравствуйте, Tamashev Denis M!
Видимо, твоя переменная s определена как byte, а этот тип имеет максимальное значение 255 ($FF). Выставь что-нибудь побольше, Word, например, тогда сможешь до четырёх знаков выставлять ($FFFF), т. е. до 65535
---------
Почему нет встроенного языка 1С на мордовском? Было бы клёво!
Ответ отправил: Злоумышленник (статус: 4-ый класс)
Отправлен: 03.03.2006, 16:20
Оценка за ответ: 5

Вопрос № 36.681
Доброго времени суток господа эксперты!!!

У меня к вам вопросы:

1. Как можно сцепить две формы и чтобы одна двигалась за другой (как WinAMP'e). Слышал что для этого надо определить прилипание (пересечение двух окон), а потом перехватывать сообщения WM_MOVE и WM_Moving (для движения). Но как это реализавать незнаю. Целый день мучался ни че не получилось. Может кто уже делал такое, то поделитесь этим куском кода.

2. Как сделать чтобы вместе с главным окном запускались еще и другие окна программы

Зарание всем спасибо!!!
Отправлен: 03.03.2006, 21:34
Вопрос задал: Ujin Antikvar (статус: 5-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Leshiy2006
Здравствуйте, Ujin Antikvar!
2)В событие OnShow для главной формы пишете Form2.Show и т.д.
1)См. приложение.
Удачи!

Приложение:

Ответ отправил: Leshiy2006 (статус: 3-ий класс)
Отправлен: 03.03.2006, 23:54
Оценка за ответ: 5
Отвечает: Alex_Nick
Здравствуйте, Ujin Antikvar!

по поводу второй части:

обработчик onCreate главной формы:

procedure TForm1.FormCreate(Sender: TObject);
var f2:tform2;
begin
f2:=tform2.create(form1);
f2.update;
f2.show;
end;

tform2 - класс второй формы.
В uses главной формы нужно прописать unit2 (это модуль где описана вторая форма)
Ответ отправил: Alex_Nick (статус: 1-ый класс)
Отправлен: 03.03.2006, 23:55
Оценка за ответ: 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
Авторские права | Реклама на портале
Версия системы: 4.17 от 09.03.2006 		Яндекс Rambler's Top100
В избранное