Сообщений в теме: 764

[halkazzar]

Люди неужели это все настолько просто, что даже говорить об этом ни кто не хочет?

[Shirson]

Спокойствие, только спокойствие. Не беспрерывно же в форуме народ сидит

Zshape[i].OnMouseDown :=ZColorChage(i);
попробуй заменить на
Zshape[i].OnMouseDown :=ZColorChage;

ZColorChage должна быть описана как:
procedure TForm.ZColorChage(sender:TObject);

В ней, если нужно, обращаешься к sender как к TShape
(sender as TShape).<чего хочу, того ворочу>

Сообщение отредактировал Shirson: 20.10.2004, 11:08:51

[Joe Doe]

Народ, кто может объяснить в двух словах что такое сервисы (или службы) WinХР? А то че-то по сети полазил - там куча инфы о том, какие сервисы отключать, а какие нет, но практически ничего по моему сабжу. А в доках микрософта на английском ковыряться неохота. Главным образом интересует принципиальное отличие сервиса от обычной проги (ведь сервисы - тоже экзешники).

[Shirson]

Если быстро и на пальцах, это невизуальные проги, которые стартуют вместе с ситемой.

[Joe Doe]

Нда, куда уж проще

Ну, в принципе, понятно.
Тэнькс

[kHAki]

Нда, куда уж проще

Ну, в принципе, понятно.
Тэнькс

Тебя реализация интересует?

[Shirson]

"в двух словах что такое сервисы", это, IMHO, вопрос не про реализацию

[kHAki]

"в двух словах что такое сервисы", это, IMHO, вопрос не про реализацию

"в двух словах отличие сервиса от обычной проги" - это, IMHO, как раз таки...

[halkazzar]

Спокойствие, только спокойствие. Не беспрерывно же в форуме народ сидит

Zshape[i].OnMouseDown :=ZColorChage(i);
попробуй заменить на
Zshape[i].OnMouseDown :=ZColorChage;

ZColorChage должна быть описана как:
procedure TForm.ZColorChage(sender:TObject);

В ней, если нужно, обращаешься к sender как к TShape
(sender as TShape).<чего хочу, того ворочу>

Shirson, идея хорошая но не прохоит Та же Ошибка.
Господа Программеры, может есть ещё варианты решения этой проблемы?

[lPhreon]

Zshape[i].OnMouseDown :=ZColorChage;

ZColorChage должна быть описана как:
procedure TForm.ZColorChage(sender:TObject);

В ней, если нужно, обращаешься к sender как к TShape
(sender as TShape).<чего хочу, того ворочу>

Shirson, идея хорошая но не прохоит Та же Ошибка.

procedure TForm.ZColorChage(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer)

Shirson дал наводку, куда копать, нужно было сделать еще один шаг.

[Anashkin]

Привет всем!
Как в Delphi узнать откуда запущенна программа???

[Joe Doe]

Нда, куда уж проще

Ну, в принципе, понятно.
Тэнькс

Тебя реализация интересует?

Да, реализация в общих чертах. Я полагаю, что кроме того, что это неграфические проги, у них должен быть специальный интерфейс с операционкой, которая их запускает и останавливает. И еще - сервисы, вроде, запускаются до загрузки аккаунта пользователя. Им это дает какие-то привелегии?

[Joe Doe]

Привет всем!
Как в Delphi узнать откуда запущенна программа???

GetModuleFileName(0,указатель_на_буфер,размер_буфера);

[Shirson]

Shirson, идея хорошая но не прохоит    Та же Ошибка.
Господа Программеры, может есть ещё варианты решения этой проблемы?

У меня код на OnClick, где только сендер есть. Если у тебя OnMouseDown, пропиши все параметры, которые там есть:

procedure TForm1.ZColorChage(sender:TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
(sender as tshape).Pen.Color:=clwhite;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Zshape: array [1..10] of Tshape;
i,j:integer;
begin
for i:=0 to StrToInt(Edit1.Text) do
 Begin
   Zshape[i] := Tshape.Create(self);
   Zshape[i].Parent := Panel1;
   Zshape[i].Left := j;
   Zshape[i].OnMouseDown:=ZColorChage;
   j:=j+30;
end;

Работает стопудово.

[Shirson]

Да, реализация в общих чертах. Я полагаю, что кроме того, что это неграфические проги, у них должен быть специальный интерфейс с операционкой, которая их запускает и останавливает. И еще - сервисы, вроде, запускаются до загрузки аккаунта пользователя. Им это дает какие-то привелегии?

Да, они на вроде административного доступа имеют.
Если будешь писать на делфи, читай хелпу по TService. Там всё расписано. И в примерах есть несколько сервисов.

[Shirson]

Привет всем!
Как в Delphi узнать откуда запущенна программа???

ParamStr(0)

[halkazzar]

Shirson, идея хорошая но не прохоит    Та же Ошибка.
Господа Программеры, может есть ещё варианты решения этой проблемы?

У меня код на OnClick, где только сендер есть. Если у тебя OnMouseDown, пропиши все параметры, которые там есть:

procedure ... end;

Работает стопудово.

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

[tIO]

Люди, HELP!!!

Как подключить в Дельфях каз. шрифт?млин, наотрез отказывается, уже попытался каждый символ нарисовать, и при нажатии на клавишу, комп считывает код клавиши, и преобразовывает его в рисунок. но проблема в том, что к примеру Ш длинее чем Т, и если надо стереть, то BACKSPACE стирает опред длину, а половина буквы остается...

[Joe Doe]

Люди, HELP!!!

Как подключить в Дельфях каз. шрифт?млин, наотрез отказывается, уже попытался каждый символ нарисовать, и при нажатии на клавишу, комп считывает код клавиши, и преобразовывает его в рисунок. но проблема в том, что к примеру Ш длинее чем Т, и если надо стереть, то BACKSPACE стирает опред длину, а половина буквы остается...

Можно поставить казахизатор и работать как с нормальным шрифтом. (если я правильно понял вопрос). Казахизатор могу замылить.

[lPhreon]

Как подключить в Дельфях каз. шрифт?

под какой операц. системой?
для себя пишешь или под заказ?

а вообще, более-менее бесболезненно все реализовано под WinXP.
под всем остальным могут быть различные проблемы (печать, буфер обмена, и т.д.),