代码搜索结果
找到约 85,229 项符合
Sender 的代码
child.pas
unit Child;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, Dialogs;
type
TChildForm = class(TForm)
Memo1: TMemo;
procedure FormClose(Sender: TObject; var A
miniform.pas
unit MiniForm;
interface
uses
Windows, Forms;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public dec
mousef.pas
unit MouseF;
interface
uses Windows, Classes, Graphics,
Controls, Forms, SysUtils;
type
TMouseForm = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
mwform3.pas
unit MWForm3;
interface
uses
Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs;
type
TForm3 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction
mwform2.pas
unit MWForm2;
interface
uses
Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs;
type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction
mwform3.pas
unit MWForm3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm3 = class(TForm)
procedure FormClose(Sender: TObject; var Action: T
mwform2.pas
unit MWForm2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: T
mousef.pas
unit MouseF;
interface
uses Qt, Classes, QGraphics,
QControls, QForms, SysUtils, Types;
type
TMouseForm = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton
channel.cpp
#include "channel.hpp"
#include "signal.hpp"
#include "physical_layer.hpp"
Channel::Channel()
{
}
Channel::~Channel()
{
}
SimTime Channel::propagationDelay(const PhysicalLayer& sender,
鼠标移动控件-自动.txt
1.添加几何(Shape)控件
2.添加定时器(Timer)控件,并双击它添加代码，让Shape1向右移动
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Shape1.Left:=Shape1.Left+5;
end;
3.再添加几何(Shape)控件
改变其"形状"(Shape)属性为"圆形"
4.再添加定时器(Ti