代码搜索结果
找到约 85,229 项符合
Sender 的代码
018-smsgateway.py
import messaging, inbox, e32
PHONE_NUMBER = "+189823801102"
nasty_words = ['Java', 'C++', 'Perl']
def message_received(msg_id):
box = inbox.Inbox()
msg = box.content(msg_id)
sender =
ring.c
/********************************************************************
* *
* Ring.c Un Arp packet sender. E' stato ideato per *
global.asax
void Application_Start(object sender, EventArgs e)
{
// 在应用程序启动时运行的代码
string connectionstring = "Provider=Mi
unit3.pas
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm3 = class(TForm)
procedure FormCreate(Sender: TObject);
global.asax
void Application_Start(Object sender, EventArgs e)
{
// Code that runs on application startup
}
void
闪动标题栏.txt
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form1.Handle,TRUE);
end;
创建异形窗体.txt
procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
rgn:=CreateEllipticRgn(0,0,450,450);
setwindowRgn(self.Handle,Rgn,true);
end;
end.
垂直显示标签文本.txt
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='中'+#13+'国'+#13+'人'+#13+'民';
end;
end.
使用相同的方法，我们也可以制作垂直显示的提示（Hint）:
button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示'；
udmdata.pas
unit udmData;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TdmData = class(TDataModule)
ADOConnection1: TADOConnection;
procedure DataModuleCreate(Sender: TObject);
pr
global.asax
void Application_Start(object sender, EventArgs e)
{
// 在应用程序启动时运行的代码
//Application.Lock();
Applica