Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Вопрос по Delphi (http://forum.oszone.net/showthread.php?t=29767)

Guest 20-01-2003 13:52 205677
Как в Delphi отключить автоперерисовке компонента (списка)?

Besso 13-04-2003 22:52 205678
IMHO, так:

box.Items.BeginUpdate();
try
 ...
finally
 box.Items.EndUpdate();
end;

UZER 02-09-2003 08:21 205679
Подскажите, как бы запусить фильм C:\movie.avi с помощью windows media player'a
Спасибо

Artya 02-09-2003 09:49 205680
2 UZER
ShellExecute()

UZER 02-09-2003 12:41 205681
Stdnet
Извини, не понял, можно поподробнее...
Дельфи ругается, что ShellExecute() не существует

Guest 02-09-2003 17:07 205682
2 UZER
В USES допиши ShellAPI

e80 02-09-2003 17:25 205683
Сори, ошибся веткой

[s]Исправлено: e80, 20:26 2-09-2003[/s]

UZER 22-11-2003 13:03 205684
Подскажите, в чем ошибка этой строки
Код:
label1.Font.Style := fsBold
И как записать правильно? Нужно сделать текст в метке жирным
Спасибо.

Prisoner 22-11-2003 21:53 205685
UZER
Цитата:
Подскажите, в чем ошибка этой строки
Это вас надо спросить, что вам среда говорит :). Скажите нам, а мы скажем вам.

shurikan 22-11-2003 23:30 205686
UZER
Код:
label1.Font.Style << fsBold;
:)

UZER 23-11-2003 02:00 205687
Prisoner
Цитата:
Цитата Delphi
Incompatible types: 'TFontStyles' and 'TFontStyle'
shurikan
Что-то не работает :(. Говорит, что "Expression expected but '<' found"

Добавлено:

В справке delphi написано:
Цитата:
Цитата Delphi_Help
TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
*TFontStyles = set of TFontStyle;
А что означает последняя строчка? :idontnow:
*


[s]Исправлено: UZER, 2:05 23-11-2003[/s]


[s]Исправлено: UZER, 2:06 23-11-2003[/s]

Prisoner 23-11-2003 07:56 205688
UZER
Код:
label1.Font.Style := [fsBold]
Просто у вас попытка уравнять (присвоить что-то куда-то) элемент множества и само множество.

shurikan, либо вы чуток ошиблись перепутав что-то, либо имеет место быть юмор... имхо, неуместный в таком случае. Искренне надеюсь на первое или на свою собственную ошибку.

UZER 23-11-2003 10:28 205689

Prisoner
Спасибо большое :oszone:

shurikan 23-11-2003 23:16 205690
Prisoner
Прошу прощения, правда я не шутил. Я-то в основном Builder-ом пользуюся, а там это делается именно так.

Добавлено:

:shuffle: :(
Ни на сабж, ни на синтаксис внимания не обратил

Prisoner 24-11-2003 01:15 205691
shurikan, заметано.

UZER 28-03-2004 04:14 205692
Расскажите, как можно организовать глобальные горячие клавиши, т.е. заданное сочетание (напр. Ctrl+A) можно было бы произвести даже если форма не активна

Prisoner 28-03-2004 05:31 205693
1) Можно поглядеть описание SetWindowsHookEx и разобраться.
2) Взять готовый компонент, например GpSysHook
3) Поглядеть пример тут

Marina Chernova 28-03-2004 18:42 205694
У меня тоже вопрос по теме.

В приложении на всех компонентах надписи сделаны одним шрифтом (допустим, Pushkin). А когда project1.exe переносишь на другой комп и открываешь, то все надписи - на стандартным timesnewroman. Как сохранить свой шрифт? Что для этого надо сделать? *

Prisoner 29-03-2004 02:43 205695
Скомпилировать шрифт в качестве ресурса программы. Об этом можно почитать здесь . Удачи.

UZER 29-03-2004 05:13 205696
Prisoner
Пасиб...разобрался ;)

LodSB 29-03-2004 18:14 205697
Еще одно дополнение по поводу горячих клавиш, кому интересно - RegisterHotKey/UnregisterHotKey

UZER 31-03-2004 07:28 205698
Можно ли отключить клавиатуру во всей системе?
Нашел вего один пример:
Код:
program antiklava;
uses Windows; { подключение необходимых модулей }
var
klava:boolean; { объявление логической переменной}
begin
klava:=true; { устанавливаем значение переменной }
while true do { начинаем бесконечный цикл }
begin
Yield; { делаем так, чтобы всё не подвисло :)}
Sleep(2*60*1000); { ничего не делаем 2 минуты }
klava:=not klava; { присваиваем переменной противоположное значение }
EnableHardwareInput(klava); { и в зависимости от переменной,
отключаем или включаем клаву с мышкой}
end;
end.
Но на ЕnableHardwareInput Delphi ругается, что такого не существует.
Заранее спасибо за помоСЧь

[s]Исправлено: UZER, 6:29 31-03-2004[/s]

Prisoner 31-03-2004 07:55 205699
А так?
Код:
procedure BlockInput; external 'user32.dll';

procedure Block;
asm
  push 1;
  call BlockInput;
end;

procedure UnBlock;
asm
  push 0;
  call BlockInput;
end;

UZER 31-03-2004 09:04 205700
Забыл сказать - это должно работать на WinXP.
Prisoner
Пасиб. Сейчас попробую...


Добавлено:

Все работает. Спасибо.

UZER 23-04-2004 14:12 205701
Скажите, является ли TServerSocket и TClientSocket компонентами дельфи, идущими с ней в коплекте? Или их надо скачивать дополнительно...?

Prisoner 24-04-2004 02:40 205702
К сожалению не могу проверить входит ли оные в поставку (седьмая) ибо не стоит... кхм... среда не стоит. В ближайшие пару дней возможно появится...
А поисковики дают такое решение.

UZER 24-04-2004 10:12 205703
Prisoner
Спасибо большое! :oszone:

AndrejChec 24-04-2004 19:09 205704
Вопрос по Delphi...
 
Как установить выравнивание "по правому краю"?

JCooper 24-04-2004 22:26 205705
Вопрос по Delphi...
 
AndrejChec выравнивание чего?

UZER 25-04-2004 16:37 205706
Помогите осуществить задачу:
Есть сеть из нескольких компьютеров. Как можно узнать, включен ли (подключен ли к сети) в данный момент нужный компьютер, прежде чем послать ему сообщение?
Заранее спасибо ;)

Prisoner 26-04-2004 04:44 205707
Тут есть совет. Или если хочется разнообразия, то тут :). Во втором случае придется отсеивать способы определения статуса online локальной машины и удаленной.

UZER 26-04-2004 06:49 205708
Prisoner
:up: сШпасиба!

UZER 30-04-2004 11:27 205709
[color=white]

[s]Исправлено: UZER, 7:26 1-05-2004[/s]

UZER 01-05-2004 07:28 205710
При разработке прилооржения возникла проблема:
Программа мешает выключению, т.е. при нажатии пуск-выключить завершаются все процессы кроме моей проги, которая гордо остается на рабочем столе....
Может быть кто-нить сталкивался, помогите решить

Добавлено:

Система - WinXP


Время: 16:34.

Время: 16:34.
© OSzone.net 2001-