Komponente und Form mit .Close .Free sauber beenden

mkinzler · Verfasst: Do 21.08.08 16:46

elundril hat folgendes geschrieben:

gibst du vielleicht etwas frei was noch gar nicht exisitiert??

Vielleicht wird die Procedure mit dem Create vorher gar nicht aufgerufen..

lg elundril

Dann sollte .Free() das aber erkennen

_________________
Markus Kinzler.

elundril · Verfasst: Do 21.08.08 16:47

Nicht zwangsläufig, denke ich. Ich habe so das gefühl das bei meinen Programmen, wenn ich da was gefreeed habe was noch nicht existierte das dann das programm gemeckert hat.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

jaenicke · Verfasst: Do 21.08.08 18:45

Der Name der freizugebenden Variable sieht für mich so aus als ob es sich um eine Komponente handelt, die auf dem Formular liegt, und falls das so ist, dann sollte man die auch nicht einfach freigeben, denn das geschieht automatisch.

Freigeben sollte man nur, was man auch vorher per Code erstellt hat und was nicht zum automatischen Freigeben bei der Elternkomponente eingetragen wurde.

CoWa · Beiträge: 17 Windows XP Embedded

So, mal mehr Code:

Sagt mir einfach wo ihr noch etwas sehen wollt:)

Ich kann gezielt per PM auch den kompletten Code versenden.

Gruß Cornelius

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, ComCtrls, OleServer, KBDLib_TLB, Registry, ShellApi, FileCtrl,
  ExtCtrls;
               
type
  TForm1 = class(TForm)
    PageControlKonfiguration: TPageControl;
    TabSheetAllgemein: TTabSheet;
    TabSheetSystem: TTabSheet;
    TabSheetAnwendung: TTabSheet;
    Sicherheit: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheetXPeSpeichern: TTabSheet;
    GroupBoxAdminpasswort: TGroupBox;
    lblPasswort: TLabel;
    EditPassword: TEdit;
    BTNPasswortOK: TButton;
    GroupBoxUserinterface: TGroupBox;
    BTNanwendung: TButton;
    BTNkalibrieren: TButton;
    GroupBoxTouchtastatur: TGroupBox;
    BTNTastaturEin: TButton;
    BTNTastaturAus: TButton;
    TrackBar1: TTrackBar;
    mfSoftkeysControl1: TmfSoftkeysControl;
    Label1: TLabel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    GroupBoxComputername: TGroupBox;
    EditComputername: TEdit;
    BTNComputernameAendern: TButton;
    GroupBoxSystemsteuerung: TGroupBox;
    BTNSystemsteuerung: TButton;
    BTNExplorer: TButton;
    BTNCMD: TButton;
    BTNRegedit: TButton;
    BTNEditor: TButton;
    OpenDialog1: TOpenDialog;
    GroupBoxAnwendung: TGroupBox;
    LBLAnwendung: TLabel;
    BTNAnwendung_auswaehlen: TButton;
    Image2: TImage;
    Image1: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    GroupBoxTaskbar: TGroupBox;
    BTNshowtaskbarOn: TButton;
    BTNshowtaskbarOff: TButton;
    LBLshowtaskbar: TLabel;
    GroupBoxStartbutton: TGroupBox;
    GroupBoxDesktop: TGroupBox;
    BTNShowDesktopOn: TButton;
    BTNShowDesktopOff: TButton;
    BTNShowStartButtonOn: TButton;
    BTNShowStartButtonOff: TButton;
    LBLShowDesktop: TLabel;
    LBLShowStartButton: TLabel;
    GroupBoxShutdownWithoutLogon: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBoxDisableLockWorkstation: TGroupBox;
    GroupBoxDisableChangePassword: TGroupBox;
    GroupBoxDisableTaskMgr: TGroupBox;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    BTNReboot: TButton;
    BTNShutdown: TButton;
    BTNReboot2: TButton;
    BTNShutdown2: TButton;
    BTNShutdownWithoutLogonOn: TButton;
    BTNShutdownWithoutLogonOff: TButton;
    BTNNoShutdownButtonOn: TButton;
    BTNNoShutdownButtonOff: TButton;
    BTNDisableLockWorkstationOn: TButton;
    BTNDisableLockWorkstationOff: TButton;
    BTNDisableChangePasswordOn: TButton;
    BTNDisableChangePasswordOff: TButton;
    BTNDisableTaskMgrOn: TButton;
    BTNDisableTaskMgrOff: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    LBLShutdownWithoutLogon: TLabel;
    LBLNoShutdownButton: TLabel;
    LBLDisableLockWorkstation: TLabel;
    LBLDisableChangePassword: TLabel;
    LBLDisableTaskMgr: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure BTNPasswortOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditPasswordKeyPress(Sender: TObject; var Key: Char);
    procedure TrackBar1Change(Sender: TObject);
    procedure BTNTastaturEinClick(Sender: TObject);
    procedure BTNTastaturAusClick(Sender: TObject);
    procedure EditComputernameKeyPress(Sender: TObject; var Key: Char);
    procedure PageControlKonfigurationChange(Sender: TObject);
    procedure BTNComputernameAendernClick(Sender: TObject);
    procedure BTNSystemsteuerungClick(Sender: TObject);
    procedure BTNExplorerClick(Sender: TObject);
    procedure BTNEditorClick(Sender: TObject);
    procedure BTNRegeditClick(Sender: TObject);
    procedure BTNCMDClick(Sender: TObject);
    procedure BTNkalibrierenClick(Sender: TObject);
    procedure BTNAnwendung_auswaehlenClick(Sender: TObject);
    procedure URL4logistic(Sender: TObject);
    procedure BTNshowtaskbarOnClick(Sender: TObject);
    procedure BTNshowtaskbarOffClick(Sender: TObject);
    procedure BTNShowDesktopOnClick(Sender: TObject);
    procedure BTNShowDesktopOffClick(Sender: TObject);
    procedure BTNShowStartButtonOnClick(Sender: TObject);
    procedure BTNShowStartButtonOffClick(Sender: TObject);
    procedure BTNRebootClick(Sender: TObject);
    procedure BTNShutdownClick(Sender: TObject);
    procedure BTNanwendungClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNShutdownWithoutLogonOnClick(Sender: TObject);
    procedure BTNShutdownWithoutLogonOffClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
//  Registry: TRegistry;


implementation

{$R *.DFM}


function RegReadStr(rootkey: hkey; Key,Value: String): String;
[...]

function RegReadInt(rootkey: HKEY; Key,Value: String): Integer;
[...]

function RegWriteStr(rootkey: HKEY; Key, Value: String; Content: String): Boolean;
[...]

function RegWriteInt(rootkey: HKEY; Key, Value: String; Content: Integer): Boolean;
[...]

function RegWriteDWORD(rootkey: HKEY; Key, Value: String; Content: DWORD): Boolean;
[...]

function RegReadDWORD(rootkey: HKEY; Key,Value: String): DWORD;
[...]

// Computernamen auslesen
function GetComputerName: string;
[...]

// Computernamen schreiben/aendern
function SetComputerName(AComputerName: string): Boolean;
[...]

procedure ShowTaskBar(AShow: Boolean);
[...]

procedure ShowWindowsStartButton(bvisible: Boolean);
[...]

procedure ShowDesktop(bVisible: boolean);
[...]

procedure KeyboardClose();
begin
    Form1.mfSoftkeysControl1.ClosePage;
//    Form1.mfSoftkeysControl1.Destroy;
    Form1.mfSoftkeysControl1.free;
end;

procedure TForm1.BTNPasswortOKClick(Sender: TObject);
[...]

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
     // Anwendung aus der Registry auslesen
     LBLAnwendung.Caption := RegReadStr(HKEY_CURRENT_USER,'Software\4logistic\Anwendung\','Default');
     // Trackbar Position = Tastaturtransparenz aus Registry
     TrackBar1.Position := RegReadInt(HKEY_CURRENT_USER,'Software\4logistic\Tastatur\','Blend');
     // PageControl Reiter unsichtbar
with PageControlKonfiguration.Pages[0] do
  For I := 0 to PageControlKonfiguration.PageCount-1 do
   PageControlKonfiguration.Pages[I].TabVisible := False;
   // Erster PageControl Reiter sichtbar
   PageControlKonfiguration.Pages[0].TabVisible := TRUE;

// HideTaskbar
[...]

// HideDesktop
[...]

   // HideStartbutton
[...]

// ShutdownWithoutLogon
[...]

// Tastatur nach aktivierung verstecken

mfSoftkeysControl1.Hide;


end;

procedure TForm1.EditPasswordKeyPress(Sender: TObject; var Key: Char);
[...]

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
     // Tastaturtransparenz = Trackbar Position
     mfSoftkeysControl1.Blend := TrackBar1.Position;

     // Aktuelle Trackbar Position/Transparenz in Registry schreiben
     RegWriteInt(HKEY_CURRENT_USER,'Software\4logistic\Tastatur\','Blend',TrackBar1.Position);
end;

procedure TForm1.BTNTastaturEinClick(Sender: TObject);
begin
     // Tastatur-Transparenz aus Registry auslesen
     mfSoftkeysControl1.Blend := RegReadInt(HKEY_CURRENT_USER,'\Software\4logistic\Tastatur\','Blend');

     // Tastatur starten
     mfSoftkeysControl1.Connect;
     // Find the name of the keyboard file
     // s := ChangeFileExt( Application.ExeName, '.kbd' );
     // Load it
     mfSoftkeysControl1.LoadKeyboard( 'C:\Tastatur\BlackWhite_deutsch4.kbd' );
     // Set the Runtime Keyboard position to "Anywhere"
     // The actual positioning (Left/Top) is done in the WM_WindowPosChanging handler
     mfSoftkeysControl1.Position := 4;
     mfSoftkeysControl1.Top := 200;
     TrackBar1.Position := mfSoftkeysControl1.Blend;
     mfSoftkeysControl1.Show;
end;

procedure TForm1.BTNTastaturAusClick(Sender: TObject);
begin
     // Tastatur unsichtbar
     mfSoftkeysControl1.hide;
end;

procedure TForm1.EditComputernameKeyPress(Sender: TObject; var Key: Char);
begin
     // Bei Enter Button klicken
     if key = Char(VK_Return) then
     Form1.BTNComputernameAendern.Click;
end;

procedure TForm1.PageControlKonfigurationChange(Sender: TObject);
[...]

procedure TForm1.BTNComputernameAendernClick(Sender: TObject);
[...]

procedure TForm1.BTNSystemsteuerungClick(Sender: TObject);
[...]

procedure TForm1.BTNExplorerClick(Sender: TObject);
[...]

procedure TForm1.BTNEditorClick(Sender: TObject);
[...]

procedure TForm1.BTNRegeditClick(Sender: TObject);
[...]

procedure TForm1.BTNCMDClick(Sender: TObject);
[...]

procedure TForm1.BTNkalibrierenClick(Sender: TObject);
[...]

procedure TForm1.BTNAnwendung_auswaehlenClick(Sender: TObject);
[...]

procedure TForm1.URL4logistic(Sender: TObject);
[...]

procedure TForm1.BTNshowtaskbarOnClick(Sender: TObject);
[...]

procedure TForm1.BTNshowtaskbarOffClick(Sender: TObject);
[...]

procedure TForm1.BTNShowDesktopOnClick(Sender: TObject);
[...]

procedure TForm1.BTNShowDesktopOffClick(Sender: TObject);
[...]

procedure TForm1.BTNShowStartButtonOnClick(Sender: TObject);
[...]

procedure TForm1.BTNShowStartButtonOffClick(Sender: TObject);
[...]

procedure TForm1.BTNRebootClick(Sender: TObject);
[...]

procedure TForm1.BTNShutdownClick(Sender: TObject);
[...]

procedure TForm1.BTNanwendungClick(Sender: TObject);
[...]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     KeyboardClose;
     PageControlKonfiguration.Free;
     Form1.Free;
end;

procedure TForm1.BTNShutdownWithoutLogonOnClick(Sender: TObject);
[...]

procedure TForm1.BTNShutdownWithoutLogonOffClick(Sender: TObject);
[...]

end.

Tilman · Verfasst: Mo 25.08.08 16:07

Weiß ja net was jetzt genau das problem ist, aber man sollte Komponenten nie in ihrer eigenen Ereignisbehandlung freigeben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     KeyboardClose;
     PageControlKonfiguration.Free;
     Form1.Free;
end;

zitat Delphi-Hilfe:

Zitat:

Warnung: Sie dürfen eine Komponente nie in einer ihrer eigenen Ereignisbehandlungsroutinen oder in einer Ereignisbehandlungsroutine eines untergeordneten Objekts freigeben. Geben Sie beispielsweise auf keinen Fall eine Schaltfläche oder ihr übergeordnetes Formular in der OnClick-Ereignisbehandlungsroutine der Schaltfläche frei.

Um ein Formular freizugeben, ruften Sie seine Methode Release auf. Dadurch wird sichergestellt, dass das Formular erst aus dem Speicher entfernt wird, wenn die Ausführung seiner eigenen und der Ereignisbehandlungsroutinen seiner Komponenten beendet ist.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

CoWa · Beiträge: 17 Windows XP Embedded

Hab deinen Vorschlag beherzigt und Form1.free auskommentiert.

Problem: Wenn ich TForm1.BTNRebootClick ausführe erhalte ich einen Zugriffsfehler

CoWa · Beiträge: 17 Windows XP Embedded

Nachdem ich Form1.Free entfernt habe bekomme ich wieder die "Com Server Warning" Fehlermeldung. (Siehe Anhang)

Einloggen, um Attachments anzusehen!

Boldar · Verfasst: Di 26.08.08 19:43

dann nimm halt form1.release!!!

CoWa · Beiträge: 17 Windows XP Embedded

Danke dir!

Vielen dank. Deine Loesung funktioniert. Werde mir mal den Unterschied zwischen .free .close und .release durchlesen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme