SendMessage для Edit

← →
Me2 (2002-10-23 10:06) [0]

Посылаю сообщение
SendMessage(Edit, wm_SetText,0, Longint(@PathToDir[1]));
Но в текстовом поле ни чего не отображается. Что надо исправить?

← →
Игорь Шевченко © (2002-10-23 10:08) [1]

Руки

← →
MBo © (2002-10-23 10:09) [2]

Edit.Handle

← →
Me2 (2002-10-23 10:13) [3]

По поводу рук - я и сам знаю :). А Edit - это не визуальный компонент, а дескриптор текстового поля, созданного функцией CreateWindow. В этом случае что делать?

← →
Игорь Шевченко © (2002-10-23 10:19) [4]

Me2 (23.10.02 10:13)

Показать больше кода

← →
Me2 (2002-10-23 10:24) [5]

Хорошо. Создаю окно с текст. полем:
Window := CreateDialog(hInstance,MAKEINTRESOURCE(10),0,@WndProc);
Edit := CreateWindow("EDIT",
"",
WS_CHILD or DS_3DLOOK or WS_VISIBLE or WS_BORDER,
18,
19,
250,
20,
Window,
200,
hInstance,
niL);
А теперь при создании окна необходимо в текст. поле добавить строку, например, находящуюся в переменной DirPath: string. Я делаю так, как показал выше.

← →
Alibaba © (2002-10-23 10:25) [6]

В случае с CreateWindow разве не создается Handle?

← →
Me2 (2002-10-23 10:34) [7]

Я увидел проблему - я вызываю SendMessage в обработчике сообщеня wm_ShowWindow и SendMessage не срабатывает, но, например, срабатывает в обработчике клика по кнопке. Тогда возникает вопрос - в обработчике какого сообщения необходимо произвести инициализацию(кстати, wm_Create тоже че-то работать не хочет)

← →
Игорь Шевченко © (2002-10-23 10:45) [8]

Me2 (23.10.02 10:34)

В wm_create сказать SetWindowText не получается ?

← →
Me2 (2002-10-23 10:54) [9]

Не получается, так как (посмотрите внимательно на код) когда создается окно еще нет текстового поля - оно создается след. коммандой.

← →
Игорь Шевченко © (2002-10-23 11:12) [10]

Me2 (23.10.02 10:54)

А...я полагал, WM_CREATE имеется в виду от Edit"а.

Тогда второй createwindow надо выдавать внутри WM_CREATE основного окна, и по получении Handle выдавать SetWindowText

← →
Me2 (2002-10-23 11:21) [11]

Игорь Шевченко © (23.10.02 11:12)

wm_Create: begin
case LoWord(wParam) of
200: case HiWord(wParam) of
wm_Create: begin
Init;
SetWindowText(Edit, "dsdsdsd");
end;
end;
end;
Не получается.
end;

В основном окне
case message of ... WM_CREATE: begin Edit := CreateWindow (.....); SetWindowText(Edit, PChar(...)); end; ... end;

← →
Me2 (2002-10-23 12:01) [13]

Да, спасибо, я уже сделал. То я последний раз высказался не подумав. Еще раз всем спасибо.

Me2 (23.10.02 12:01)

> Еще раз всем спасибо.

Нас разве так много ? :-)))

SendMessage для Edit Найти похожие ветки