Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];

Вниз

Window Handle   Найти похожие ветки 

 
P@vel   (2004-06-17 09:52) [0]

Может кто не занимается поиском хаккеров подскажет.


Type
 TServer = class(TControl)

........................

Constructor TServer.Create;
begin
 inherited Create(NIL);
 name:=self.ClassName;
 Handle:=FindWindow(PChar(name),Nil);



Уж очень хочется получить дескриптор этого объекта.


 
Тимохов ©   (2004-06-17 10:02) [1]

сложно искать черную кошку в комнате, особенно если ее там нет.

не получится - у control нет handle (т.к. нет окна). Он поясвляется только у wincontrol.


 
P@vel   (2004-06-17 10:32) [2]

Как создать TWinControl не имеющий предка.


inherited Create(self.Owner);
inherited Create(NIL);
inherited Create(self);

Всё это вызывает ошыбки.


 
Sandman25 ©   (2004-06-17 10:34) [3]

[2] P@vel   (17.06.04 10:32)

Вам нужно срочно книжки почитать. Программировать на этом уровне без необходимых знаний не получится


 
P@vel   (2004-06-17 10:44) [4]

Мне просто интересно можно создать компонент не имеющий родителя, это всё что я спрашиваю.


 
Тимохов ©   (2004-06-17 10:47) [5]


> P@vel   (17.06.04 10:44) [4]

а это уже другой вопрос.
каждый вопрос принято создавать отдельным топиком :)


 
P@vel   (2004-06-17 10:56) [6]

И всё же ?


 
Sandman25 ©   (2004-06-17 10:58) [7]

[6] P@vel   (17.06.04 10:56)

Этот параметр - не родитель, а владелец. Разница огромна


 
P@vel   (2004-06-17 11:10) [8]

Удалено модератором
Примечание: мат


 
Тимохов ©   (2004-06-17 11:28) [9]

на глазах умнеете, сначала вы у TObject пытались handle искать

http://delphimaster.net/view/1-1087420050/


 
Sandman25 ©   (2004-06-17 11:29) [10]

type
 TStupidWinControl = class(TWinControl)
 public
   constructor Create; reintroduce;
 end;

{ TStupidWinControl }

constructor TStupidWinControl.Create;
begin
 inherited Create(nil)
end;

ЗЫ. Вы не первый (и не последний), кто так реагирует на замечания о книжках :)


 
P@vel   (2004-06-17 11:41) [11]


> Sandman25


Смотри выше
inherited Create(self.Owner);
inherited Create(NIL);
inherited Create(self);

Среди этих вариантов. Есть inherited Create(NIL); И пример у вас такой же как и у меня. Но у меня почему то при компиляции возникает ошибка. Но большое вам спасибо я уже разобрался.
P.S Это не реакция на замечание о книжках. Это реакция на безпонтовые ответы.


 
Sandman25 ©   (2004-06-17 11:45) [12]

Не хочу выглядеть бестолковым, но в чем беспонтовость моего ответа? Я должен был догадаться, что Вы все знаете, но просто допустили описку? Сначала предок, потом родитель, потом владелец...


 
P@vel   (2004-06-17 11:50) [13]

Ладно забудем. Всё работает и славненько.


 
evvcom ©   (2004-06-17 12:01) [14]

И все же в TStupidWinControl лучше Create оставить с параметром Owner, а уж пользователь пусть решает задавать ему владельца или передавать nil. Это во-первых, универсальнее, а во-вторых, писать меньше (если в Create кроме inherited больше ничего нет), а значит (в этом случае точно) Create оверрайдить не надо, и код результата получится меньше.


 
P@vel   (2004-06-17 16:24) [15]

Если я пишу inherited значит есть ещё что то кроме.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.045 c
1-1087290166
Андрей
2004-06-15 13:02
2004.07.04
Компонент Tchart


1-1087338679
Алексей
2004-06-16 02:31
2004.07.04
Чем отличается функция GetCurrentProcessId от GetCurrentThreadId


8-1082250510
Игорь
2004-04-18 05:08
2004.07.04
Длина AVI файла


14-1087046197
Pat
2004-06-12 17:16
2004.07.04
Магистратура


3-1086434077
DereK)
2004-06-05 15:14
2004.07.04
Отчет по одной записи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский