как перенести тексти с Edit в TSeSkinEdit [D7, XP]
poops89 © (2008-12-22 12:39:00)
Помогите пожалуйста добрые люди с вопросом !!!!!!!!!!!
как написать так что
бы с Edit1 текст отправлялся в Panel5 := FindWindowEx(Panel4,
0,
'TSeSkinEdit', nil) при нажатии Button2 через определенное
время?????
Зарание благодарен за помощь!!!!!!я предлагаю так но что
дальше не знаю????
procedure TForm3.Button1Click(Sender: TObject);
var
hGlavnoeOkno, Panel1, Panel2, Panel3, Panel4, Panel5, Panel6
: THandle;
begin
hGlavnoeOkno := FindWindow('TChatForm', nil);
Panel1 := FindWindowEx(hGlavnoeOkno, 0, 'TSeSkinPageControl',
nil);
Panel2 := FindWindowEx(Panel1, 0, 'TSeCustomTabSheet', nil);
Panel3 := FindWindowEx(Panel2, 0, 'TSeSkinPanel', nil);
Panel4 := FindWindowEx(Panel3, 0, 'TSeSkinPanel', nil);
Panel5 := FindWindowEx(Panel4, 0, 'TSeSkinEdit', nil); //сюда
должен вводиться текст из Edit1
Panel6 := FindWindowEx(Panel4, 0, 'TSeSkinButton', nil);
ShowWindow(Panel5, SW_show);
Caption := IntToHex(Panel1 , 4);
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Timer1.Enabled := False;
Timer1.Interval := StrToInt(Edit2.Text); //время задаеться в
Edit2
Timer1.Enabled := True;
end;
Leonid Troyanovsky (2008-12-22 15:56:00) [1]
> poops89 © (22.12.08 12:39)
> Panel5 := FindWindowEx(Panel4, 0, 'TSeSkinEdit', nil);
//сюда
> должен вводиться текст из Edit1
Возможно (если это EDIT), что путем
SendMessage(Panel5, WM_SETTEXT, 0,
LParam(Pointer(Edit1.Text)));
из процедуры таймера, если Panel5 будет, скажем, полем формы.
--
Regards, LVT.
Наверх 
ЧАТ |
Орешник |
|
