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

Вниз

Не получается прокрутить scroll вниз   Найти похожие ветки 

 
17Landgraf   (2006-07-08 12:50) [0]

Уважаемые подскажите, пожалуйста!
Задача следующая: необходимо открыть текстовый файл (около 8 Mb), после чего прокрутить scroll в конец файла. Проблема в том, что после открытия файла прокрутка вниз не происходит. Собственно вопрос, как это сделать и где у меня ошибка? Код прилагаю ниже:


procedure TForm1.Button2Click(Sender: TObject);
var
FilePath: PChar;
NowDate:TDateTime;
StringName:string;
LogName:PChar;
HwndLog: Thandle;
begin
{узнаем дату}
  NowDate:=Now; //Получаем текущую дату

  HwndLog:=ShellExecute(0,nil,NameOfLog(DateToStr(NowDate)),nil,
  PChar("\\Silver\logs"),SW_SHOW);

  SendMessage(HwndLog,WM_VSCROLL ,SB_BOTTOM ,0); // Здесь ничего не происходит!!
end;


 
Ketmar ©   (2006-07-08 13:05) [1]

ну и кому, пардон, посылаютс сообщения? у вас сейчас ситуация примерно такая: вы заходите в лифт и говорите лифтёру: "мне обед на три персоны, пожалуйста". почитайте ВНИМАТЕЛЬНО справку. между HINSTANCE и HWND разница просто таки огромная. %-)


 
DrPass ©   (2006-07-08 13:06) [2]

SendMessage требует дескриптор окна, а ShellExecute возвращает дескриптор экземпляра приложения


 
17Landgraf   (2006-07-08 13:30) [3]

Я нашел хендл открытого текстового файла с помощью функции FindWindow();
На сколько я понял FindWindow возращает HWnd! Потом опять послал SendMessage, но ничего не произошло. Так как мне реализовать задуманное? Подскажите?


 t:=FindWindow(nil,"test.log");
  SendMessage(t,WM_VSCROLL ,SB_BOTTOM ,0); // Здесь ничего не происходит!!


 
Ketmar ©   (2006-07-08 13:39) [4]

ой, как всё запущено...
Я нашел хендл открытого текстового файла с помощью функции FindWindow()
орешник обрыдался уже.

"ручка" не файла, а окна. это раз. кто сказал, что scrollbar находится в главном окне приложения? это два. надо искать дочернее окно (типа EDIT, например), и уже с ним шаманить.


 
17Landgraf   (2006-07-08 15:20) [5]

Все получилось! Спасибо за то, что направили в нужное русло для поиска!:)
А можно еще маленький вопросик: Когда открываю файл через функцию ShellExecute, она возвращает HINST. А можно ли по этому HINST найти хэндл открывшегося окна (файла)?



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

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

Наверх




Память: 0.47 MB
Время: 0.082 c
2-1154451484
bobbi
2006-08-01 20:58
2006.08.20
Вопрос тупой


15-1153689754
Ломброзо
2006-07-24 01:22
2006.08.20
eMule


1-1152080166
ancot
2006-07-05 10:16
2006.08.20
Цвет TMainMenu


3-1150218131
starling13
2006-06-13 21:02
2006.08.20
TIBTransaction.Rollback


2-1154425301
Damager
2006-08-01 13:41
2006.08.20
TAction компоненты + XPMan