Главная страница
    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.036 c
6-1083932405
Tishaishy
2004-05-07 16:20
2004.07.04
Как организовать выкачку одного файла несколькими потоками(частям


14-1087384516
syte_ser78
2004-06-16 15:15
2004.07.04
На улице то как класно!!!


14-1086994799
saNat
2004-06-12 02:59
2004.07.04
Демонстрация работы потоков


3-1086615740
Inkotex
2004-06-07 17:42
2004.07.04
DBGrid и его набор даных


1-1087723329
akvilon
2004-06-20 13:22
2004.07.04
Мои шрифты и Canvas.Font





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский