Форум: "Начинающим";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];

Вниз

как перенести тексти с Edit в TSeSkinEdit   Найти похожие ветки 

← →
poops89 ©   (2008-12-22 12:39) [0]

Помогите пожалуйста добрые люди с вопросом  !!!!!!!!!!! как написать так что
бы с 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) [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.

---

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

Форум: "Начинающим";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c