delphi When Caption clicks on an event, only the value of the last entry is displayed

procedure : tobject);

var sp : tstringlist;

str :string;

y :integer;

Refresh the next window here.

sleep(2000);

end;

Store the queried records in the RecordSet, and then use a timer timer to execute MoveNext on the RecordSet at certain intervals, and then read the record information and display it on the label.

This can be achieved with a timer, if not thenbegin in the ontimer event

end;

If the amount of data is small, you can extract the data all at once and put it into a text or listview control, and in the timer control, set the interval time, and display it line by line.

It is recommended to use a timer control to control the pointer of record.

procedure : tobject);

beginwith adoquery1 do

beginwith adoquery1 do

Begin questions').asstring);

'Option A').asstring;

'Option B').asstring;

'Option C').asstring;

'Option D').asstring;

'Option e').asstring;

next;end;

end;

Take a look at the run in the event.

The easiest way to do this is to add a ttimer component, set the interval value to 1, and then write the ontimer to let the Wu Dai Qin clear code:

procedure : tobject);

Begin to be a slippery notice of the link to the web page.

false;

end;

In the onshow event of the main window, just write the ** displayed by the web page.

Addendum: Then you make a separate thread for the web page display statement.

So that they don't interfere with each other.

You try to write the ** displayed by the web page in the activate event in the main window.

Just set the onclick event to the same. For example, the click event of button1 is button1click, and the onclick in the pop-up menu is also set to button1click.

In the case of object event management, you can set the function corresponding to the onchange of the button to set the click event in the pop-up menu.

It can also be set in the program.

Suppose button event.

procedure :tobject);

beginshowmessage('hello world');

end;This is used in menu click events:

procedure :tobject);

beginbutton1click(sender);

end;The second method is to make the events to be done in the button into a function, and call each function separately!

I'm not adding ** to the button,I'm saying adding ** to the menu is like the main menu of QQ,On the far left of the menu**,On the top and netizens said to use xpmenu control,Is it the internal control of delphi,Why didn't I find it?