C cyf_00002 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-26 #2 tform1_create(sender ) with form1do begin left:=0; top:=0; width:=screen.width; height:=screen.height; end;
tform1_create(sender ) with form1do begin left:=0; top:=0; width:=screen.width; height:=screen.height; end;
E eryu Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-26 #3 tform1_create(sender )是什么意思？ 这些代码应该加在程序什么地方？ 谢谢 ！
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-26 #4 procedure TForm1.FormCreate(Sender: TObject); begin BorderStyle:= bsNone; Height := screen.height; Width := screen.width; Position :=poScreenCenter; FormStyle:= fsStayOnTop; //这个一定要 end;
procedure TForm1.FormCreate(Sender: TObject); begin BorderStyle:= bsNone; Height := screen.height; Width := screen.width; Position :=poScreenCenter; FormStyle:= fsStayOnTop; //这个一定要 end;
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-26 #6 设置属性：Form1.KeyPreview := true; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_ESCAPE then close; end;
设置属性：Form1.KeyPreview := true; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_ESCAPE then close; end;
