ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
28.04.2008, 17:43
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685
Репутация:
30
|
|
Ну, до этого я и сам догадался. Но желательно, чтобы пользователь вообще не мог ставить курсор в поле TMemo...
|
|
|
28.04.2008, 18:05
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от z01b
Код:
function isin(podstroka,stroka:string):boolean;
begin
if pos(podstroka,stroka)=0 then isin:=false else isin:=true;
end;
а типа
Код:
isin := pos(podstroka, stroka) = 0
- не труЪ? 
-------------------------------------------------------------
Сообщение от Metall
Ну, до этого я и сам догадался. Но желательно, чтобы пользователь вообще не мог ставить курсор в поле TMemo...
Memo1.Enabled := false;
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
28.04.2008, 18:11
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685
Репутация:
30
|
|
Сообщение от desTiny
Memo1.Enabled := false;
Мне это уже объяснили. Процитирую сам себя
Сообщение от Metall
Спасибо, все почти так. Я меняю свойство Enabled в разделе Action на False и меняю Свойств ReadOnly на True. Но появилась проблемка. Если изменить первое свойство, то текст будет, выводится серым цветом. И даже если в разделе font изменить цвет выводимого текста, то он все равно будет выводиться серым. Как исправить проблему?
|
|
|
|
28.04.2008, 18:15
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Если не ошибаюсь, то присваивая Memo1.Active - False, то нельзя ничего менять, в т.ч. и цвет фонта.
|
|
|
|
28.04.2008, 18:22
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от Metall
Мне это уже объяснили. Процитирую сам себя Вариант:
создаёшь где-нибудь Edit невидимый, и делаешь в Memo.OnFocus: EditX.SetFocus - покопай вокруг этого
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
28.04.2008, 18:28
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685
Репутация:
30
|
|
Еще вопрос. У меня на форме компонент TMemo и TEdit. Пользователь что-то вводит в TEdit и по нажатию Enter'а оно попадает в TMemo. Но при этом издается звук из колонок. Это немного раздражает. Как сделать, чтобы звук не издавался (вариант с отключением колонок не предлагайте :-)
|
|
|
|
28.04.2008, 18:35
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Metall
Еще вопрос. У меня на форме компонент TMemo и TEdit. Пользователь что-то вводит в TEdit и по нажатию Enter'а оно попадает в TMemo. Но при этом издается звук из колонок. Это немного раздражает. Как сделать, чтобы звук не издавался (вариант с отключением колонок не предлагайте :-)
Код:
uses
MMSystem;
function SetWaveVolume(const AVolume: DWORD): Boolean;
var
WaveOutCaps: TWAVEOUTCAPS;
begin
Result := False;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
Result := WaveOutSetVolume(WAVE_MAPPER, AVolume) = MMSYSERR_NOERROR;
end;
При форм create может сделать SetWaveVolume(0); и при закрытии формы, SetWaveVolume(100);?
|
|
|
|
28.04.2008, 18:36
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от Metall
Еще вопрос. У меня на форме компонент TMemo и TEdit. Пользователь что-то вводит в TEdit и по нажатию Enter'а оно попадает в TMemo. Но при этом издается звук из колонок. Это немного раздражает. Как сделать, чтобы звук не издавался (вариант с отключением колонок не предлагайте :-)
Какой такой звук?
А если в Edit1.onKeyDown прописать какой-нть
if key = VK_RETURN then Memo1.SetFocus?
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
28.04.2008, 18:52
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685
Репутация:
30
|
|
Не совсем понятно как работает код, предлагаемый вами, т. к. мои знания Delphi пока минимальны. Но все равно спасибо.
Сообщение от desTiny
Какой такой звук?
А если в Edit1.onKeyDown прописать какой-нть
if key = VK_RETURN then Memo1.SetFocus?
Выдает ошибку: Cannot focus a disabled or invisible window |
|
|
|
28.04.2008, 18:56
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
А что к тебя invisible или disabled?
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
