代码搜索结果

1.建一个文件夹，用于放程序。 2.新建一个程序。 3.保存(用Save All) 4.向窗体添加按钮Button1,并添加事件和代码： procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Brush.Color:=clRed; Canvas.Rectangle(20,20,40,100); end;

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormPaint(Sender: T

14.当一个方块到达下面要把它放下来，就是说要将盒子(Box)的某些格子填满，所以我们用一个20*10的数组表示盒子(Box)的每个格子是空还是满 在implementation前定义 Box:array[0..19,0..9] of Integer; 修改定时器Timer1的事件的代码，当方块到下面时停下来 procedure TForm1.Timer1Timer(Sender: TOb

1.在左边的对象观察器(Object Inspector)工具栏中翻到事件(Events)页 找到键盘事件(OnKeyDown) 2.双击它生成键盘事件，并添加代码，在窗体Form1的标题上显示按键的值 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin

1.在左边的对象观察器(Object Inspector)工具栏中翻到事件(Events)页 找到键盘事件(OnKeyDown) 2.双击它生成键盘事件，并添加代码，在窗体Form1的标题上显示按键的值 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin

1.建一个文件夹"鼠标移动控件"，用于放程序。 2.新建一个程序。 3.保存(用Save All)到该文件夹 4.向窗体(Form1)添加定时器(Timer)控件(点上方的控件工具栏的第四页(System) 的定时器(Timer)控件，再在窗体的空白处点一下) 5.双击它添加事件，并添加代码 procedure TForm1.Timer1Timer(Sender: TObject)

1.建一个文件夹，用于放程序。 2.新建一个程序。 3.保存(用Save All)到该文件夹 4.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为 "向上"、"向下"、"向左"、"向右" 5.双击按钮，添加事件，并添加代码 procedure TForm1.Button1Click(Sender: TObject); begin Form1.Top:

module sender( clk50m, rst, req, ack, data, dck, s_ram_rab, s_ram_rdb, s_req, s_ack, s_start, s_finish, vsin ); input clk50m; input rst; output req; output

Public Class Form5 Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click End Sub Private Sub 成绩登记To

[STAThread] static void Main() { Application.Run(new Form1()); } public void ShowMessage(object sender, EventArgs e) { MessageBox.Show("another form call this method!"); }