代码搜索结果
找到约 85,229 项符合
Sender 的代码
wscstfrm.pas
unit WSCstFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TWSCustomForm = class(TForm)
procedure FormClose(Sender: T
print.ap
program {
main() {
while true do
receive m ->> {
"Incoming Message.\n" >> stdout;
"Sender: " ++ sender^0 ++ "\n"
>> stdout;
"Content: " ++ string%%m ++"\n"
>> stdout;
messenger.ap
program {
agents_ : [];
main() {
"Message Server starting...\n" >> stdout;
while true do
receive {
'register ->> {
"Agent " ++ sender^0 ++ " registered\n" >> stdout;
('me
filter1.js
//USEUNIT StdCtrls
//USEUNIT Custview
//-------------------------------------------------------------------
function AddFieldName(Sender)
{
if (Memo1.Text != "")
Memo1.Text = Memo1.Tex
splash.js
function FormCreate(Sender)
{
Show;
Update;
}
custrpt.js
//USEUNIT Datamod
function QRDBText1Print(Sender, Value)
{
with (MastData)
Value = DateToStr(CustByLastInvQueryLastInvoiceDate.Value );
}
pickinvc.js
//USEUNIT Datamod
function FormShow(Sender)
{
MastData.Orders.Open;
}
edcust.js
//USEUNIT Datamod
function Edit(CustNo)
{
MastData.Cust.Open;
MastData.Cust.Locate("CustNo", CustNo, 0);
ShowModal;
}
function PrintBtnClick(Sender)
{
if (MessageDlg(" Print thi
invcrpt.js
//USEUNIT Datamod
function InvoiceByOrderNoReportBeforePrint(Sender,PrintReport)
{
Sender.AllDataSets.Add(MastData.Cust);
Sender.AllDataSets.Add(MastData.Orders);
}
detail.js
//USEUNIT Buttons
//USEUNIT ExtCtrls
//USEUNIT main
function OpenButClick(Sender)
{
var Dialog = TOpenDialog.Create(null);
Dialog.Filename = '*.bmp';
if (Dialog.Execute)
{
M