DelphiʵÏÖ͸Ã÷´°Ìå
unit unitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
X := X + Button1.Left;
Y := Y + Button1.Top;
ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y + Button1.Height);
CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR);
SetWindowRgn(Handle, FullRgn, True);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do
begin
Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
try
tf.Assign(Font) ;
GetObject(tf.Handle, sizeof(lf), @lf) ;
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf) ;
Font.Assign(tf) ;
finally
tf.Free;
end;
TextOut(20, Height div 2, 'Rotated Text!') ;
end;
end;
procedure TForm1.WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
begin
inherited;
with msg.MinMaxInfo^.ptMaxTrackSize do
begin
X := GetDeviceCaps(Canvas.Handle, HORZRES)
Ïà¹ØÎĵµ£º
ÔÀ´ÊÇÒªÔÚFormCreateÖмÓÈëÒÔÏ´úÂë:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//Õâ¾äºÜ¹Ø¼ü.¶ÔÓÚÆ½Ì¨µÄÖ§³Ö.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......
ÒÔǰ¿´ÁË Í¨¹ý±ÀÀ£µØÖ·ÕÒ´íÎóÐÐÊýÖ®VC°æ ÄÇʱºò»¹Ã»ÓÃDELPHI
×òÍí¸ÕºÃÓÖ¿´µ½ÁË ËùÒÔ¾ÍÊÔÁËÒ»ÏÂDELPHIµÄ£¬Óë´ó¼Ò¹²Ïí ^_^
ʲôÊÇ MAP Îļþ£¿¼òµ¥µØ½²£¬ MAP ÎļþÊdzÌÐòµÄÈ«¾Ö·ûºÅ¡¢Ô´ÎļþºÍ´úÂëÐкÅÐÅÏ¢µÄΨһµÄÎı¾±íʾ·½·¨£¬Ëü¿ÉÒÔÔÚÈκεط½¡¢ÈκÎʱºòʹÓ㬲»ÐèÒªÓжîÍâµÄ³ÌÐò½øÐÐÖ§³Ö¡£¶øÇÒ£¬ÕâÊÇΨһÄÜÕÒ³ö³Ì ......
Delphi formatµÄÓ÷¨
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬Á ......
unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
......
2009-12-01 00:41:35
֮ǰ°²×°ÁËoracle 10g£¬ºóÀ´ÎªÁËÔÚC#ÀïÃæÁ¬½Óoracle£¬°²×°ÁËODAC£¬Ö®ºóÁ¬½ÓÊý¾Ý¿âʱ£¬ÌîдÊý¾Ý¿â·þÎñÃû£¬×ÜÊÇ»á³ö´í£¬Á¬½Ó²âÊÔÎÞ·¨Í¨¹ý£¬²»ÌîÊý¾Ý¿â·þÎñÃû£¬µ¹»¹¿ÉÒÔͨ¹ýÁ¬½Ó²âÊÔ
½ñÍíÖÕÓڲ鵽ÔÒòÁË¡£¡£¡£
ϵͳÊôÐÔÄÇÀïµÄ»·¾³±äÁ¿£¬pathÕâÀoracleµÄÁ½¸öĬÈÏ·¾¶£º
d:\oracle\product\10. ......