Hallo,
ich rufe von der abgeleiteten Klasse nichts auf. Ich dachte mir das es alleine gemacht wird.
Hier meine abgeleitete Klasse:
Delphi-Quellcode:
unit UPatients;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UMainForm, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;
type
TFPatients =
class(TFMainForm)
DBGrid1: TDBGrid;
B1: TBitBtn;
B2: TBitBtn;
B3: TBitBtn;
B4: TBitBtn;
B5: TBitBtn;
B6: TBitBtn;
B7: TBitBtn;
B8: TBitBtn;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FPatients: TFPatients;
implementation
{$R *.dfm}
end.
Wie will man denn sonst das Fenster schließen oder die Form veschieben.