![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#10
|
||||
|
||||
|
Tlabel таким образом добавить не получтся т.к. это не окно, используй TStaticText
попробуй такой вариант: Код:
procedure Starter(hForm : hwnd); stdcall; var label_tmp : TStaticText; begin label_tmp := TStaticText.Create(nil); label_tmp.parent := nil; label_tmp.ParentWindow := hForm; label_tmp.Show; label_tmp.Left := 100; label_tmp.Top := 100; label_tmp.Transparent := True; label_tmp.Caption := 'text'; end; Код:
Starter(Form1.Handle); |