delphiÄÜɾ³ý¶¯Ì¬Éú³ÉµÄ¿Ø¼þÂð?
delphiÄÜɾ³ý¶¯Ì¬Éú³ÉµÄ¿Ø¼þÂð?
µ±È»¿ÉÒÔ
ÄܸæËßһϲ»?
ÄãµÄÎÊÌâºÜ³éÏó
ʵÀýɾ³ý¶¯Ì¬´´½¨µÄBUtton
´´½¨
BB := TButton.Create(self);
BB.Parent := self;
ɾ³ý
BB.Free;
Delphi(Pascal) code:
ÏÈÉùÃ÷Ò»¸öEditÊý×飬¿ÉÒÔÊǾ²Ì¬µÄÒ²¿ÉÒÔÊǶ¯Ì¬µÄ±ÈÈç AEdit: array of TEdit;
//´´½¨
Count := 10;
SetLength(AEdit,Count+1);
for i:=1 to Count do
begin
EditName := 'Edit' + IntToStr(i);
AEdit[i] := TEdit.Create(Self);
AEdit[i].Parent := Self;
if i = 1 then
begin
AEdit[i].Top := Top;
end
else if i > 1 then
begin
AEdit[i].Top := Top + 10;
end;
AEdit[i].Left := 405;
AEdit[i].Width := 100;
AEdit[i].Height := 14;
AEdit[i].AutoSize := False;
AEdit[i].Name := EditName;
AEdit[i].OnKeyDown := EditKeyDown;
//ÊÍ·Å
for i:=1 to Count do
begin
EditName := 'Ed
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......