Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Посылка строки с переходом на следующую строку!   Найти похожие ветки 

 
Arkan ©   (2002-11-12 18:50) [0]

Здравствуйте!
У меня прога открывает блокнот и туда посылает строку(SendMessage(WHandle,WM_SETTEXT,length(x),integer(x));). Внимание, вопрос! :) Как мне перейти на другую строку? Послать ему какой-то спец символ? Возможно, но останется ли у меня предыдущая строка??? Заранее спасибо.
И ещё вопросик! Как мне лучше всего сделать задержку???
Например, можно так:
h:=createevent(nil,true,false,"");
waitforsingleobject(h,100);
closehandle(h);
Моно и так:
sleep(100);
Объясните, что лучше или где использовать??


 
Arkan ©   (2002-11-12 22:47) [1]

ну хотя бы с задержками помогите :(


 
SottNick ©   (2002-11-13 06:26) [2]

x:="Строка1"#13#10"Строка2";
SetWindowText(WHandle,Pchar(x));

sleep(100);


 
Guerrillero ©   (2002-11-13 15:27) [3]

Чтобц перейти на другую строку надо нажать Enter в конце этой строки.Попробуй это реализовать c помощью сообщений, например :
var
H : THandle;
I : Integer;
begin
WinExec("notepad",SW_SHOWNORMAL);
H := FindWindow("Notepad",nil);
if H < 32 then Exit;
H := FindWindowEx(H,0,"Edit",nil);
if H < 0 then Exit;
SendMessage(H,WM_SETTEXT,0,Integer(PChar("Ха-Ха")));
for I := 0 to 4 do // переходим в конец строки
begin
SendMessage(H,WM_KEYDOWN,VK_RIGHT,0);
SendMessage(H,WM_KEYUP,VK_RIGHT,0);
end;
SendMessage(H,WM_CHAR,VK_RETURN,0);




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

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-99128
Gennady
2002-12-18 12:44
2002.12.30
Сохранить TCollection в файл ?


1-99126
Zergling
2002-12-18 11:23
2002.12.30
Подавить мерцание TGraphicControl


3-98993
xenon
2002-12-10 13:03
2002.12.30
Инкрементный поиск в TDBLookupComboBox


3-99016
Karbo
2002-12-11 03:15
2002.12.30
Простой вопрос по SQL


1-99141
4D man
2002-12-18 14:02
2002.12.30
Факториал дробного числа