Обсуждение программирования на Delphi в конференции ru.delphi

Приветствую, Jenya!

Однажды, 18.07.05 21:40:00, Jenya писал к Mihail Piterskiy
по поводу "Загадка программерам :)".









А в хелп залезть не судьба?
=== Cut ===
OnClick occurs when the user clicks the control.

TNotifyEvent = procedure (Sender: TObject) of object;
property OnClick: TNotifyEvent;

Description

Use the OnClick event handler to write code that responds to the click event.
Usually OnClick occurs because the user presses and releases the primary mouse
button with the mouse pointer over the control. This event can also occur when

. The user selects an item in a grid, outline, list, or combo box by pressing
an arrow key.
. The user presses Spacebar while a button or check box has focus.
. The user presses Enter when the active form has a default button (specified
by the Default property).
. The user presses Esc when the active form has a cancel button (specified by
the Cancel property).
. The user presses the accelerator key for a button or check box. For example,
if the value of the Caption property of a check box is '&Bold', the B is
underlined at runtime and the OnClick event of the check box is triggered
when the user presses Alt+B.

. The value of the Checked property of a check box is changed.
. The Click method of a menu item is called.

For a form, an OnClick event occurs when the user clicks a blank area of the
form or on a disabled component.
=== Cut ===

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: HPT is the best tosser! (2:450/143.25)




Fri Jul 15 2005 21:09, Andrew O Shadoura wrote to All:



Этот модуль рабочий.
TSGByteArray - собственный класс. Можно выкинуть.
================= файл LU_SystemLogReport.pas ========================
unit LU_SystemLogReport;

interface

uses
Windows, SysUtils;

const
kernel32 = 'kernel32.dll';

type
//Типы событий в системном логе
TSGLogEventType = (
letError, //Ошибка
letWarrning, //Предупреждение
letInformation, //Информация
letAuditSuccess, //Аудит успехов
letAuditFailure); //Аудит отказов

//Пишет сообщение об ошибке в системный лог
procedure WriteEventInLog(Msg : String; RawData : TSGByteArray);

//Пишет сообщение в системный лог
procedure WriteInSystemLog(
EventType : TSGLogEventType;
Msg : String;
RawData : TSGByteArray);

implementation

var
EventLog : THandle;

procedure WriteEventInLog(Msg : String; RawData : TSGByteArray);
begin
WriteInSystemLog(letError, Msg, RawData);
end;

procedure WriteInSystemLog(EventType : TSGLogEventType; Msg : String;
RawData : TSGByteArray);
var
wType : Word;
lpMSG : ^PChar;
begin
//Если еще не использовали, то регестрим
if EventLog = INVALID_HANDLE_VALUE then
EventLog := RegisterEventSource(nil, PChar(ExtractFileName(ParamStr(0))));
//Получилось зарегестрировать - пишем в лог

case EventType of
letError : wType := EVENTLOG_ERROR_TYPE;
letWarrning : wType := EVENTLOG_WARNING_TYPE;
letInformation : wType := EVENTLOG_INFORMATION_TYPE;
letAuditSuccess : wType := EVENTLOG_AUDIT_SUCCESS;
else wType := EVENTLOG_AUDIT_FAILURE;
end;
New(lpMSG);
lpMSG^ := PChar(Msg);
//В зависимости от наличия бинарных данных
if not Assigned(RawData) then
ReportEvent(EventLog, wType, 0, 0, nil, 1, 0,
lpMSG, nil)
else
ReportEvent(EventLog, wType, 0, 0, nil, 1, RawData.Length,
lpMSG, RawData.RawData);
Dispose(lpMSG);
end
else
EventLog := INVALID_HANDLE_VALUE;
end;

initialization
EventLog := INVALID_HANDLE_VALUE;
finalization
//Если был зарегестрирован, то аккуратно закрываем

DeregisterEventSource(EventLog);
end.
======================================================================

С уважением, Морозов Сергей.

* Origin: FidoNet Online - www.fido-online.com (2:5020/400)



Хаpакиpи, Piterskiy-сан!..






...а потом идёшь изучать матчасть и получаешь правильный эффект, а не "забавный"...

Или ты думаешь, что если ты её _уже_ выучил, а некоторые - _пока_ нет, то это и есть забава?..
Писал бы в Ru.Delphi.Chainik... Там бы и отвёл душу... Заодно бы и более весёлых ответов посмотрел бы...

See You later, Alligator! Vladimir.


* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)


*..........[* _Привет, Alex!_ *]..........*
























С чего ты это взял?


















^^^^^




^^^^^^^



Угадай с одного раза, зачем я это подчеркнул.




У тебя такие же проблемы :-/


*..........[* _Удачи тебе, Alex!_ *]..........*
*_/С уважением Александр./_*
* Origin: -=B'n'TH team=- (2:5057/19.122)




Ответ на письмо от Bulat Ziganshin с темой "Как отловить начало работы
с удалённым подключением?":







Вообще-то говоря я это делаю ради собственного удовольствия. Hо будет
время - посмотрю и на NetLaunch. Украду идей :-)

Bye ...
Oleg Lazukin.
oleglazukin(anti-spam)mail.ru
* Origin: JSC Rostovtelecom (2:5020/400)




Vladimir Bakhvaloff пишет:





Вот объясни хоть ты - здесь стадо мастадонтов что ли сидит?

Я ТО ЗHАЮ В ЧЕМ ПРИЧИHА ТАКОГО ПОВЕДЕHИЯ.

А вот судя по многочисленным ответам - вы то как раз и не поняли, в чем
причина (кроме одного человека). Более того, вы даже не поняли ЧТО ЭТО
ЗА ПОВЕДЕHИЕ. Потому что никто не удосужился откомпилировать пример, вы
не понимаете о чем я говорю. Я специально дал ссылку на исходник.

Я настоятельно прошу вас посмотреть пример в действии, а потом уже
отсылать людей в конференцию для чайников (чем вы несомненно их
обижаете). Договорились?
--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)




Hello, Mihail Piterskiy!
You wrote to Vladimir Bakhvaloff on Tue, 19 Jul 2005 16:04:35 +0000 (UTC):





Hе трогать чайников, нормальная конференция, - она расчитана на определенную снисходительность к фундаментальным знаниям и более обстоятельный ответ. Больше ни каких различий.

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)



Пpивет, Mihail.








Да ты у нас ГУРУ!.. Иди тогда в Delphi.Master...





Hу сИрые мы и убогие...




Да нафига оно не надо, тебе это почти все и объясняют, что ты не то событие обрабатываешь...





Hет, не договорились...

Что ты, как и некий ID упираешься?.. Все не в ногу, а ты один в ногу чтоль?..

Hasta la vista, Mihail!..


* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)



Здpавия желаю, товаpищ Anatoly!







Да, был не прав, погорячился... Hо только по поводу посыла в Chainik... ;)

Вообще-то, наверное, место для таких "отвлечённых" бесед - Delphi.Talk...
А то всё сведётся, как с ID, к обсуждению батников, их синтаксиса и перевода слов directory и folder на русский язык...
Согласись, что к эхотагу это имеет... м-м-м... да не имеет вообще... %)

Да и хватит пока... Vladimir.


* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)


#region Ответ на письмо Andrey Belyakov к Павел Глухих по теме "Компонент для хpанения настpоек фоpмы". [ date_15 июля 05_ ]



Я вас не понял, какой еще 2 паpаметp? Поясните, пожалуйста.

#endregion
* Origin: Спpаведливость тpебует жеpтв, а жеpтвы - спpаведливо (2:5083/39.47)