Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.09.2006, 23:16
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию Смена родителя...

Приведенный ниже код создает кнопку на рабочем столе.
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<b>procedure</b> TForm1.B_Click(Sender: TObject);
<b>begin</b>
   ShowMessage( <font color="RoyalBlue">'aaa'</font> );
<b>end</b>;
 
<b>procedure</b> TForm1.Button1Click(Sender: TObject);
<b>var</b>
  h: HWND;
  b: TButton;
<b>begin</b>
   h := FindWindow( <font color="royalblue">'Progman'</font>, <font color="royalblue">'Program Manager'</font> );
   b := TButton.Create( Owner );
   <i><font color="royalblue">// b.Parent := Form1;</font></i>
   b.ParentWindow := h;
   b.Left := <font color="royalblue">10</font>;
   b.Top := <font color="royalblue">10</font>;
   b.Caption := <font color="royalblue">'Button'</font>;
   b.OnClick := B_Click;
   Windows.SetParent( b.Handle, h );
<b>end</b>;
Проблема в следующем. После смены родителя (Windows.SetParent( b.Handle, h )) кнопка перестает реагировать на события (в данном случае на Click). Как сменить родителя и при этом сохранить события?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 07:58.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025