代码搜索结果
找到约 85,229 项符合
Sender 的代码
unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
unitdll.pas
unit UnitDll;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: T
child2unit.pas
unit Child2Unit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TChildForm2 = class(TForm)
procedure FormClose(Sender: TObject; var A
child1unit.pas
unit Child1Unit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TChildForm1 = class(TForm)
procedure FormClose(Sender: TObject; var A
p_mc.pas
unit p_mc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
Tf_mc = class(TForm)
procedure FormClose(Sender: TObject; var
pipedio.java
//: concurrency/PipedIO.java
// Using pipes for inter-task I/O
import java.util.concurrent.*;
import java.io.*;
import java.util.*;
import static net.mindview.util.Print.*;
class Sender implem
新建 文本文档.txt
procedure TForm1.Button1Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from student where (1=1)';
if edit1.Text '' then
sqlstr:=sqlstr+'and (name='''+edit1.text+
default.aspx.vb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Protect
bbchild.pas
unit BbChild;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TChildForm = class(TForm)
procedure FormClose(Sender: TObje
实例——打印报表的脚注.txt
procedure TReportForm.PrintFooterReport2(Sender: TObject)；
begin { 打印报表2的脚注 }
with Sender as TBaseReport do
begin
SetFont('Times New Roman',8)；
//调用TbaseRepo