🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: cn.bbs.comp.program
1 messages
1 total messages Started by �ϵ� Sun, 19 Apr 1998 00:00
Dynamic Create
#1156
Author: �ϵ�
Date: Sun, 19 Apr 1998 00:00
38 lines
1521 bytes
������: njhe (ra), ����: RAD
��  ��:  Dynamic Create
����վ: '3m�Ͻ�ɺ�m' (Thu Feb 26 14:11:00 1998) , վ���ż�

    Delphi�ж�̬����Form��
    (1)���弴��������Form������
    (2)����TForm�Ĵ���������
    (3)�޸��´�����Form�����ԡ�

    Sample:

    procedure TForm1.Button1Click( Sender: TObject );
    var
      FrmChild: TForm;
    begin
      FrmChild := TForm.Create( Self );
      with FrmChild do
        begin
        FormStyle := fsStayOnTop;
        ShowModal;
        end;
    end;

    �˴�ʹ����Windows�еķ�ģʽ�Ի��򣬿������´�����Form��Main Form����
��С��ʱ�Բ��ı���״̬��

--

\|/ ____ \|/
~@-/ oO \-@~   ������!!!
/_( \__/ )_\
    \__U_/

m;37m�� ��Դ:���Ͻ�ɺ� bbs.njupt.edu.cn��[FROM: 202.119.236.104]m

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: a507yjh.nju.edu]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads