delphi mdichild ´°Ì廥Ïàµ÷ÓÃ
delphi Éè¼Æ
Á½¸ö mdichild ×Ó´°ÌåµÄµ÷ÓÃÎÊÌâ
Form1(mdichild) ÉÏÃæµÄÒ»¸ö°´Å¥£¬click ºó£¬Òª³öÏÖ Form2(mdichild) £¬¿ÉÊÇ Form2 ³öÏÖºó£¬ Form1 ¾Í²»¼ûÁË¡£
¼±£¬²»ÖªµÀ¸ÃÔõôŪ²Å¿ÉÒÔÁË¡£
Çë°ïÖú£¡£¡£¡
procedure TForm1.bitbtn1Click(sender:object);
begin
F_Main.Z70Click(nil); //Ö´ÐÐÕâ¾äºó£¬Form1 ¾Í²»¼ûÁË£¬Ö»ÓÐ Form2 ÁË
end;
F_Main ÊÇ MDI ¸¸´°Ìå ,ÔÚ¸¸´°ÌåÖÐÖ´ÐÐÏÂÃæµÄ´úÂëûÓÐÎÊÌâ¡£
procedure TF_Main.Z70Click(Sender: TObject);
begin
if CreateForm(Form2)=false then
begin
Form2:=TForm2.Create(Application);
Form2.Show ;
end
else
Form2.Show ;
end;
CreateForm ÊǸöº¯ÊýÈçÏ£º
function TF_Main.CreateForm(CForm: TForm):boolean;
var
No:integer;
FormExist:boolean;
begin
FormExist:=False;
if (CForm=Nil) then //ÅÐ¶Ï CForm ÊÇ·ñΪ¿Õ
begin
CreateForm := False; //º¯Êý·µ»ØÖµ¸³ false
exit; // Í˳ö±¾º¯Êý
end;
for No := 0 to Screen.FormCount - 1 do //Åжϴ°ÌåÊÇ·ñÒѾ±»½¨Á¢ÆðÀ´
begin
if screen.
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......