Delphi-Quellcode:
unit nachrichten;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 =
class(TForm)
Edit1: TEdit;
Label2: TLabel;
Label18: TLabel;
Edit2: TEdit;
Memo2: TMemo;
Button1: TButton;
Edit3: TEdit;
Label1: TLabel;
Edit4: TEdit;
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form3: TForm3;
implementation
uses verwaltung;
{$R *.dfm}
procedure TForm3.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
edit1.text:='
';
edit2.Text:='
';
edit3.text:='
';
edit4.Text:='
';
memo2.Text:='
';
end;
end.
das ist der gesamte code der form3 und der fehler tritt halt nur auf wenn ich das form3 geöffnet hatte.
klassen oder Pointer hab ich nicht in verwendung arbeite nur mit der libmysql.dll