[Flop88]

Делфи я только начал изучать и вот хочу простенькую прогу написать, но никак не получается. Суть проги: При нажатии на кнопку отправляется сообщение в то текстовое поле, куда заранее клацнул мышкой.

[Flop88]

Код:

1 2 3 4 5 6

procedure TForm1.btn1Click(Sender: TObject); begin Randomize; aa:= random(999999); SendMessage(hl, WM_SETTEXT, 0,  integer(aa)); end;

Не прокатывает

[angvelem]

При "клацании" на кнопку, фокус с текстового поля снимается. Посылаешь сообщение на деревню к дедушке.

[Flop88]

Эм, а как тогда сделать так, что бы когда нажмёшь на поле, нажмёшь ну допустим F1 и отправляло сообщение ?

[angvelem]

Так и пиши, клавишу, а не кнопку:

Код:

1 2 3 4 5

procedure TForm1.OnKeyDown(Sender : TObject; var Key: Word; Shift: TShiftState); begin   if Key = VK_F1 then   ... end;

и не забудь свойство формы KeyPreview, выставить в True.

[Snake22]

Flop88 , отправить нужно сообщение или просто текст в текстовое поле? а то я подозреваю что если только начал изучать delphi то отправка сообщений както рановато для рначала)
могу предложить такой код:
(на форме 3 текстовых поля Edit и кнопка)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

var   Form1: TForm1;   n:Integer; implementation   {$R *.dfm}   procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin n:=1; end;   procedure TForm1.Edit2MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin n:=2 end;   procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin n:=3 end;   procedure TForm1.Button1Click(Sender: TObject); begin case n of      1:Edit1.Text:='aaa';      2:Edit2.Text:='aaa';      3:Edit3.Text:='aaa';      end; end;

[Flop88]

Спасибо, помогли очень сильно, но тут же появился ещё 1 вопрос. Текст по нажатию клавиши он пишет в том окне на которое я нашёл курсором,но пределах формы. Как сделать так, чтоб он писал не только в этих пределах ?

[angvelem]

Я так понимаю, в чужом приложении? FindWindow.

[Flop88]

Сообщение от angvelem

Я так понимаю, в чужом приложении? FindWindow.

Ну мне нужно чтоб при нажатии кнопки писалось сообщение в скайпе(в поле на которое клацнул)

[Flop88]

Код:

1	hl := WindowFromPoint(Mouse.CursorPos);

Я использую, но работает только в пределах формы

[angvelem]

Эта тема неоднократно обсуждалась на форуме. Воспользуйся поиском.

[Flop88]

Не могу найти

[angvelem]

Не можешь или не хочешь? смотри и выбирай нужное.

[YVitaliy]

Чужое окно так ловится легко, но чтобы отследить "клик" мышкой нужно хук делать, кажись. Я когда-то делал генератор паролей ( ) таким способом, то для "отлавливания" нужного окна вызывал прозрачную форму с непрозрачной точкой на ней - ловил окно под точкой и понеслась... Да, веселые времена были. Пароль был 12-ти значный, латиница и цифры...

[angvelem]

Ему не нужно отслеживать мышку, достаточно найти окно, затем перечисляя все дочерние найти то, которое имеет фокус. Но весь прикол в том, что такого окна не будет.