{{notification.text}}

MirGames

Meat
04.07.06 04:53
0
На окне размещена кнопка и два поля для в ввода текста.
Код

сonst
BTN=1;
Edit1Id=2;
var
But,Edit1,Edit2:HWND;

Я хочу сделать, чтобы при нажатии кнопки текст с одного поля переводился в другое. Как сделать сам перевод я знаю, а вот как это сделать с нажатия кнопки?

Перевожу в обработке сообщений
Код

var
S:PChar;
n:Integer;
begin
WM_COMMAND:
case LoWord( wParam ) of
Edit1Id :begin
n := GetWindowTextLength( lParam ) + 1;
GetMem( S, n );
GetWindowText( lParam, S, n );
SetWindowText( Edit2, S );
FreeMem( S, n );
end;

А как кнопку подставить ума не приложу. Должно ведь быть типа
Код
BTN:

и вообщем дальше не могу додуматься, чтобы работало.
Отредактировано: 04.07.06 04:54
#1
04.07.06 17:52
0
XProger'а вторая статья и пример к ней
#3
Meat
10.07.06 04:07
0
Ой забыл тут отписаться. Читал я, все понял. Спасибо:)
#{{post.Index}}
{{post.Author.Login}}
{{post.CreatedDate | date:'dd.MM.yy HH:mm'}}
{{post.VotesRating}}
Отредактировано: {{post.UpdatedDate | date:'dd.MM.yy HH:mm'}}