Stealth Client Forum

Posted: **11.04.2017 19:31**

Есть вот такая менюшка.
Не пойму где себе сломать голову чтобы получилось "No"

Serial: B3EF7
GumpID: C76290C
X: 0000
Y: 0000
Pages: 1
Gump Options: NoClose

GumpPics: X  Y  ID  Hue  Page  ElemNum
0:        70  50  96  0  0  4

ResizePics: X   Y   ID   Width   Height   Page   ElemNum
0:        10  10  3600  300  140  0  2

GumpTexts: X   Y   Color   Text_ID   Page   ElemNum
0:        30  25  500  0  0  3
1:        45  70  500  1  0  6
2:        45  100  500  2  0  8

Text Lines:
Destroy it?
Yes
No

GumpButtons: X   Y   Released_ID  Pressed_ID   Quit   Page_ID   Return_value   Page   ElemNum
0:        30  75  2103  2104  1  0  1  0  5
1:        30  105  2103  2104  1  0  0  0  7

Previous gump reply:
  Button id: 0

Posted: **11.04.2017 19:50**

NumGumpButton(GetGumpsCount-1, 0);

Posted: **11.04.2017 20:03**

Спасибо огромное!
Помогла процедурка описанная в другой теме:

drabadan wrote:

Code: Select all

procedure PushTehButton;
var
AGInfo : TGumpInfo;
i : Integer;
begin
if IsGump then
GetGumpInfo(GetGumpsCount-1, AGInfo);
AddToSystemJournal('Gump has ' + IntToStr(Length(AGInfo.GumpButtons)) + ' buttons');
i := 0; //индекс кнопки в массиве кнопок.
NumGumpButton(GetGumpsCount-1, AGInfo.GumpButtons[i].return_value);
end;

Stealth Client Forum

Помогите нажать на кнопку "нет".

Помогите нажать на кнопку "нет".

Re: Помогите нажать на кнопку "нет".

Re: Помогите нажать на кнопку "нет".