function SetWindowText(byval hWnd as HWND, byval lpString as zstring ptr) as integer
Функция устанавливает текст заголовка окна. В Windows это стандартная winapi функция.
hWnd - хендл окна
lpString - указатель на строку типа zstring , в котором будет новый текст заголовка окна
Windows , Linux
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,200,200)
CenterWindow(hwnd)
ButtonGadget(1,10,10,80,25,"Change")
Do
event=WaitEvent()
If Event=EventClose Then
Exit Do
ElseIf event = eventgadget Then
If EventNumber = 1 Then
SetWindowText(hwnd, "NEW")
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator