Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÇëÎÊdelphi µ÷ÓÃÁíÍâÒ»¸öform¹ý³ÌµÄÎÊÌ⣡

ÎÒÏëÔÚform1Öе÷ÓÃform2ÖеÄbottonµ¥»÷ʼþµÄ¹ý³Ì£¬µ«ÀÏÊdzö´í£¬ÎÒÊÇÈçϲÙ×÷µÄ£º

Ê×ÏÈн¨Ò»¸öfrom2 £¬¼ÓÒ»¸öbutton£¬µ¥»÷²¢Ð´ÈçÏ´úÂ룺

procedure TForm2.Button1Click(Sender: TObject);
var message1:string;
begin
begin
  message1:='hello i am from form2';
  showmessage(message1);
end;
end;

È»ºó°ÑÕâ¸ö procedure TForm2.Button1Click(Sender: TObject); ·Åµ½ unit2µÄpublicÖС£

½Ó×ÅÎÒÔÚunit1 µÄuseÖмÓÈë unit2£¬

×îºóÔÚform1µÄÒ»¸öbuttonʼþÖмÓÈëÈçÏ´úÂ룺

procedure TForm1.Button10Click(Sender: TObject);
begin
unit2.Button1Click(Sender: TObject)
end;

ÎÒÖ÷ÒªÊÇ¿´¿´¿É²»¿ÉÒÔÔÚÒ»¸öformÖе÷ÓÃÁíÒ»¸öformµÄ¹ý³Ì£¬Èç¹û¿ÉÒԵϰ£¬ÄÇÓ¦¸ÃÏÔʾmessage1ÖеÄ×Ö·û´® hello i am  from form2 ²Å¶Ô°¡¡£¿ÉÊÇÌáʾ[Error] Unit1.pas(205): Undeclared identifier: 'Button1Click'¡£ÇëÎÊʲôԭÒò°¡£¬±¾È˸Õѧdelphi£¬Õâ¸öÎÊÌâÊDz»ÊǺܱ¿£¡
procedure TForm1.Button10Click(Sender: TObject);
begin
  unit2.form2.Button1Click(Sender);
end;

ÄãÒªÖ¸¶¨ÊÇform2µÄbuttonclick

ÒýÓÃ
procedure TForm1.Button10Click(Sender: TObject);
begin
  unit2.form2.Button1Click(Sender);
end;



¾ÍÕâÁË

ÒýÓÃ
procedure TForm1.Button10Click(Sender: TObject);
begin


Ïà¹ØÎÊ´ð£º

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

Delphi Óë ACCESSµÄ¹îÒìÏÖÏó

delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand


//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
  tmpCmd := TADOCommand.Create(ni ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ