Почему не рабатает????
Не пойму почему не работает следующее:
Wnd:=findWindow(nil,'Welcome to program'); находим окно
wnd2:=findWindowex(Wnd,0,nil,'Cancel'); находим кнопку
SendMessage(wnd, WM_COMMAND, BN_CLICKED shl 16,wnd2); нажимаем кнопку
Если не правильно, напишите пожалуйста пример
Wnd:=findWindow(nil,'Welcome to program'); находим окно
wnd2:=findWindowex(Wnd,0,nil,'Cancel'); находим кнопку
SendMessage(wnd, WM_COMMAND, BN_CLICKED shl 16,wnd2); нажимаем кнопку
Если не правильно, напишите пожалуйста пример
Попробуй так:
if FindWindow(nil, 'Test form')<> 0 then
begin
wnd := FindWindow(nil, 'Test form');
if FindWindowEx(wnd,0,nil,'Test button')<> 0
then
begin
wnd2:=FindWindowEx(Wnd,0,nil,'Test button');
SendMessage(wnd2, WM_LButtonDown, 1, 1);
SendMessage(wnd2, WM_LButtonUP, 1, 1);
end;
end;
if FindWindow(nil, 'Test form')<> 0 then
begin
wnd := FindWindow(nil, 'Test form');
if FindWindowEx(wnd,0,nil,'Test button')<> 0
then
begin
wnd2:=FindWindowEx(Wnd,0,nil,'Test button');
SendMessage(wnd2, WM_LButtonDown, 1, 1);
SendMessage(wnd2, WM_LButtonUP, 1, 1);
end;
end;
обьясните почему не работает следующий код
DrawGrid1.Canvas.CopyRect(DrawGrid1.CellRect(1, 1),Panel1.Brush.Bitmap.Canvas, Rect(0, 0, 16,16));
DrawGrid1.Canvas.CopyRect(DrawGrid1.CellRect(1, 1),Panel1.Brush.Bitmap.Canvas, Rect(0, 0, 16,16));