Pushing Actions (Standard Buttons)
  

Another way for let the users to take an action (besides menus) are buttons.

@ 10,10 BUTTON Button_1 CAPTION 'Click Here!' ACTION MsgInfo('Button Clicked!')


#include "minigui.ch"

PROCEDURE Main

DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Tutor 09 - Button Test' ;
MAIN

@ 10,10 BUTTON Button_1 ;
CAPTION 'Click Here!' ;
ACTION MsgInfo('Button Clicked!')

END WINDOW

RETURN




MiniGui - (c) 2003-2005 Roberto Lopez
Extended version - MiniGUI Team (c) 2005-2024
(Grigory Filatov,Jacek Kubica,Janusz Pora,Pierpaolo Martinello, Ivanil Marcelino)

Edited by Janusz Pora & Sylvain Larche