Die Software ist im frühen Stadium. Die Verwendung erfolgt auf eigenes Risiko. Ich übernehme keine Haftung.
Die Software ist Freeware
Dim Shared As FForm form1 Dim Shared As FPanel panel1,panel2 Dim Shared As FButton btn1,btn2 '------------------------------------------- sub btn1_onClick ' OK wurde geklickt' end sub sub btn2_onClick form1.formClose end sub '------------------------------------------- form1.Create("Testform",0,0,870,720) Form1.Center Form1.Color = &Hefcb90 panel1.Create(form1.Handle,100,40,860,550) panel1.Color = RGBA(150,180,210,0) panel2.Create(form1.Handle,0,690,866,22) panel2.Color = RGBA(210,210,210,0) btn1.Create(form1.Handle,"OK",5,160,90,36) btn1.Color = RGBA(150,180,210,0) btn1.onClick = @btn1_onClick btn2.Create(form1.Handle,"Abbruch",5,196,90,36) btn2.Color = RGBA(250,190,210,0) btn2.onClick = @btn2_onClick '------------------------------------------- ' Initialisierungen Var, array usw. hier '------------------------------------------- form1.Show EndDiese Methode sollte nur bei visuellen Objekten verwendet werden wie Form und deren Kindfenster. Diese werden beim beenden vom Betriebssystem zerstört. FImage oder FTimer u.A. haben im Destructor Funktionen die z.B. temp. HDC oder andere Handle löschen und sollten deshalb so wie hier rechts definiert und mit Delete gelöscht werden. |
Dim Shared As FDialogBox PTR pDlgBox1 Dim Shared As FPanel PTR pDlgPanel1 Dim Shared As FButton PTR pDlgButton1 '------------------------------------------- Sub Button_onClick pDlgBox1->Close(0) End Sub Sub dlg1_OnInitdialog(ByVal hWnd As HWND) ' alle Control müssen hier erstellt werden pDlgPanel1 = New FPanel pDlgButton1 = New FButton pDlgPanel1->Create(hWnd,10,10,276,140) pDlgPanel1->Caption =Chr(13,10)+ " Dialogbox mit FDialogBox " pDlgPanel1->Border=1 pDlgPanel1->TextAlign=4 ' mehrzeilig mitte pDlgButton1->Create(hWnd,"OK",100,180,100,26) pDlgButton1->onClick = @Button_onClick End Sub '------------------------------------------- ' Das könnte das Event-Sub vom Menu sein '------------------------------------------- Sub menu_About Dim As Integer retVal pDlgBox1 = New FDialogBox pDlgBox1->Color = &Hefcb90 pDlgBox1->OnInitdialog=@dlg1_OnInitdialog retVal = pDlgBox1->Create(Form1.Handle,"Info",300,250) ' Speicher bereinigen Delete pDlgPanel1 Delete pDlgButton1 Delete pDlgBox1 End SubDiese Variante ist für Dialoge, die mehrmals zeitweilig aufgerufen werden, besser geeignet. |