Вниз
Скачать: CL | DM;

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

 
Lony ©   (2002-11-24 20:38) [0]

Можете привести пример с использованием CreateThread? Дело в том, что прога написана в Console. {$R *.RES}


 
asmith   (2002-11-24 21:09) [1]

Это не имеет значения. Делаешь все, как обычно
var
fExecuteThread : THandle;
threadID : Integer;
...
fExecuteThread := CreateThread (Nil, 0, @ExecuteHandler, Тшд, CREATE_SUSPENDED, threadID);
где ExecuteHandler описана так:
function ExecuteHandler (param : pointer) : Integer; stdcall;
Ну и так далее




 
Андрей Ваганов   (2002-11-25 13:50) [2]

2 asmith
...,а что делать если в потоке надо вывести MessageDlg?
Получается ругань на канвас. Причем тут канвас?


 
Marcus   (2002-11-25 14:35) [3]

А ты не юзай MessageDlg, а юзай старый добрый APIшный MessageBox. А насчет канвас - см. в source\vcl\dialogs.pas


 
esu ©   (2002-11-25 14:44) [4]

А еще можно сделать свое сообщение и передавать его в главную форму, а оттуда уже отображать где угодно...


 
Victor_Cr ©   (2002-11-25 15:25) [5]

Нельзя в потоке что либо выводить на экран. Для этого нужно передавать в главную форму(или вообще в какую нибудь форму) сообщение, либо пользовать метод Synchronize. От этого он и ругается на канву. И вообще читайте доки - они рулез.


 
Fantasist ©   (2002-11-25 18:25) [6]


> Нельзя в потоке что либо выводить на экран.


С чего бы это? Нельзя делать определенные вещи, но что либо на экран вывести никаких проблем.


 
Андрей Ваганов   (2002-11-25 19:21) [7]

2 Fantasist
дааааа, и как?


 
Morfein ©   (2002-11-25 20:28) [8]

to Андрей Ваганов :
ручками через API...



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
1-37065
Dmitriy2001
2003-01-02 23:06
2003.01.13
Подскажите пожалуйста, как в компоненте TreeView задать Node


3-36938
race1
2002-12-18 07:49
2003.01.13
sql round


14-37270
Мазут Береговой
2002-12-23 07:03
2003.01.13
Интересная Мысль No 2 (Автор ветки Fenik)


7-37405
Pegas
2002-11-02 12:46
2003.01.13
Как обойти HASP-1C


1-37050
DJ!
2003-01-02 19:04
2003.01.13
TTreeView




   Наверх