Двадцатка самых популярных вопросов.

← →
Игорь Шевченко © (2004-04-03 23:05) [240]

> насчет создания таймера на WinApi

1) Реализация TTimer из VCL
2) WaitableTimers (совсем API), начиная с Windows 98 и Windows NT 4
3) Для Win2k и выше - Timer Queues. "Timer-queue timers are lightweight objects that enable you to specify a callback function to be called at a specified time."

← →
Игорь Шевченко © (2004-04-03 23:05) [240]

← →
Piter © (2004-04-04 00:09) [241]

Rouse_ (03.04.04 22:48) [239]
Стало быть
function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT;
lpTimerFunc: TFNTimerProc): UINT; stdcall;Уже забыли? :))

да я ее и не помнил никогда :)
Значит, все просто... дядюшка Билли все предусмотрел :) И во всех виндах реализована

← →
Piter © (2004-04-04 00:09) [241]

← →
panov © (2004-04-04 01:50) [242]

>Piter

Вы уж извиняйте, что не успеваю выкладывать код, который готов. Просто кроме работы над FAQ еще очень много работы в фирме.

По поводу письма на adm@delphimaster.ru.
Это моя вина. Код в письме был переслан мне Максимом, но я немного замотался, да и писем много. В результате не ответил.
В понедельник на работе обязательно подниму снова письма.

← →
panov © (2004-04-04 01:50) [242]

← →
Piter © (2004-04-04 13:12) [243]

Итак, вопросы № 11-14

11) Как преобразовать тип String к Pchar и обратно

В принципе, можно написать s := PChar(p)
Но я думаю нелишним будет написать мини-лекцию об устройстве этих типов данных. Кто как считает?
Мне и самому интересно, так как в этом вопросе не очень разбираюсь. Могу попробовать написать

12) Как уменьшить размер программы

в принципе, ответ на этот вопрос в нормальном виде есть в текущем FAQ.
Мне кажется только надо немного переоформить, а то там комментарии какие-то, в том смысле, что смотрится не очень. Вырвали откуда-то, да так и оставили. Просто четко и лаконично расписать существующие способы прямо по пунктам.

13) Динамическое создание объектов, включая создание массива объектов и назначения единой процедуры обработки

Может, ссылку на статью давать? Тут, по-моему, где-то есть про такое.

14) Почему при динамическом создании объект остается невидимым

Ответ:

Проверьте, что задано свойство Parent - указатель на контрол, на котором должен располагаться ваш объект (чаще всего в его роли выступает форма) и свойство Visible выставлено в True

← →
Piter © (2004-04-04 13:12) [243]

← →
Piter © (2004-04-04 13:19) [244]

Piter (04.04.04 13:12) [243]
13) Динамическое создание объектов, включая создание массива объектов и назначения единой процедуры обработки

вот статья. Имхо, полностью удовлетворяет вопросу:

http://delphimaster.ru/articles/comparray.html

← →
Piter © (2004-04-04 13:19) [244]

← →
Piter © (2004-04-04 17:58) [245]

Вот написал тут насчет вопроса №11 http://delphimaster.net/view/14-1081086968/

← →
Piter © (2004-04-04 17:58) [245]

Вот написал тут насчет вопроса №11 http://delphimaster.net/view/14-1081086968/

← →
Piter © (2004-04-04 19:11) [246]

Вот еще один вопрос:

http://delphimaster.net/view/14-1081086968/

"Есть ли аналог delay в Delphi, как это было в Pascal?"

Также предлагаю включить такой вопрос:

Как динамически создать TWebBrowser (как задать свойство Parent)

Ответ:

Дело в том, что свойство Parent, которым обладают контролы, в TWebBrowser перекрыто другим свойством. Но дотянуться до первоначального свойства возможно. Например так:

procedure TForm1.Button1Click(Sender: TObject); var wb:TWebBrowser; begin wb:= TWebBrowser.Create(self); TWinControl(wb).Parent:=self; end;

После чего экземпляр wb появится на форме

← →
Piter © (2004-04-04 19:11) [246]

← →
Piter © (2004-04-04 22:49) [247]

А еще можно написать сочинения на тему:

"Проблемы взаимоотношений поколений: Родители и наследующие объекты"
"Сюжетная линия процедуры LineTo(x,y)@
"Третий сон операнда Halt"
"Правдивость и лживость булевых переменных"
"Мой любимый тип данных. Как я отношусь к ним"
"Трагизм дважды освобожденного поинтера"
"Переполнение чаши терпения стека"
"End. - закончился ли сюжет?"
"Мое отношение к абсолютизму функции ABS(x)"
"Переплетение судеб Бегина и Энда".

(c) FIDO

← →
Piter © (2004-04-04 22:49) [247]

← →
Игорь Шевченко © (2004-04-04 23:02) [248]

А также глубокомысленное эссе на тему "Как очистить переменную совсем" и описать вечный конфликт компьютронов с богонами.

← →
Игорь Шевченко © (2004-04-04 23:02) [248]

← →
Diamond Cat © (2004-04-05 00:40) [249]

А может просто разорвать список задач, на колличество присутствующих здесь людей (с учетом интересов) и потом объединить все примеры, вот собственно и готовый "фак" а то скоро эта ветка разрастется до невероятных размеров, и найти место откуда ноги растут и сколько этих ног выросло будет просто не возможно.

← →
Diamond Cat © (2004-04-05 00:40) [249]

← →
Piter © (2004-04-05 00:46) [250]

Игорь Шевченко (04.04.04 23:02) [248]
тему "Как очистить переменную совсем

IronHawk если не ошибаюсь? :)

P.S. Ладно, больше флудить не будем...

← →
Piter © (2004-04-05 00:46) [250]

← →
Anatoly Podgoretsky © (2004-04-05 00:51) [251]

Diamond Cat © (05.04.04 00:40) [249]
Можно если согласовать список тем, то обсуждение можно вести по каждой отдельной теме отдельно.

← →
Anatoly Podgoretsky © (2004-04-05 00:51) [251]

← →
Piter © (2004-04-06 18:57) [252]

panov?

← →
Piter © (2004-04-06 18:57) [252]

panov?

← →
Piter © (2004-04-07 22:02) [253]

не понимаю

← →
Piter © (2004-04-07 22:02) [253]

не понимаю

Еще одна демка:
http://www.rouse.front.ru/Tracert.zip

Панов, я тебя не понимаю, ты можешь хотя бы объявлять ответы на какие вопросы уже есть? или ты забил на все?

>Piter © (10.04.04 13:56) [255]

Ну не успеваю я все систематизировать и разобрать.
Работа над FAQ идет, но медленно.
Прислано очень много материалов, но напрямую копи-паст не сделаешь.
Кроме того, что нужно все проверить, в редакторе FAQ ((c) Romkin ) нужно еще форматировать текст.

Также в любом случае нужна еще проверка всего FAQ.
Из него нужно вычистить ошибки и прочий разный бред.

> Как в Word:
> - открыть документ
> - напечатать документ

Открыть документ

procedure OpenWordDocument(const AFileName: string); var MsWord: OleVariant; begin MsWord := CreateOleObject("Word.Application"); MsWord.Visible := True; MsWord.Documents.Open(Filename := AFilename); end;
Напечатать документ

procedure PrintWordDocument(const AFileName: string); var MsWord: OleVariant; begin MsWord := CreateOleObject("Word.Application"); try MsWord.Documents.Open(Filename := AFilename); MsWord.ActiveDocument.PrintOut(); finally MsWord.Quit; end; end;

Двадцатка самых популярных вопросов. Найти похожие ветки