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.
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬
ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......