Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

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

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

DELPHIÇë´ó¼Ò°ïÎÒ¿´¿´Õâ¶ÎËÑË÷´úÂë³ö´íÔÚÄĶù°¡£¿

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
  begin
    with ADOQuery1 do ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ