unit FormErstellen;
interface
uses Haupt, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, XPMan, StdCtrls, ExtCtrls, SonstFunctionen;
type TFormErstellen =class(TForm)
procedure Kd_AnlegenShow;
Procedure Kd_AnlegenHide;
Procedure Vt_SuchenShow;
Procedure Vt_SuchenHide;
public
procedure BtnKdSpeichern_click(Sender: TObject);
//Das funktioniert
procedure GebDatKdAnlegen_KeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
//Hier FEHLER
//FEHLER: Ungenügende Forward- oder External-Deklaration !!!!
private
end;
implementation
var
Edt_Kd_speichern_GebDat : TEdit;
Btn_Kd_Speichern : TButton;
procedure TFormErstellen.Kd_AnlegenShow;
begin
if Assigned(Panel_Kd_Anlegen)
then //wenn vorhanden nicht neu erstellen sonder nur Inhalte Löschen
begin
Panel_Kd_Anlegen.Show;
MeineFunktion.KomponentenInhalt_loeschen(Panel_Kd_Anlegen);
end
else
begin
Edt_Kd_speichern_GebDat:= TEdit.Create(Panel_Kd_Anlegen);
Edt_Kd_speichern_GebDat.parent:= Panel_Kd_Anlegen;
with Edt_Kd_speichern_GebDat
do begin
name:= '
Edt_Kd_speichern_GebDat';
top:= Lbl_Kd_speichern_GebDat.Top + Lbl_Kd_speichern_GebDat.Height;
left:= 250;
text:= '
';
Width:= 100;
OnKeyUp := GebDatKdAnlegen_KeyUp;
end;
Btn_Kd_Speichern:=TButton.Create(Form1);
Btn_Kd_Speichern.Parent:= Panel_Kd_Anlegen;
with Btn_Kd_Speichern
do begin
Name:='
Btn_Kd_Speichern';
Height:= 41;
left:= 744;
top:= 533;
Width:= 137;
Caption:= '
Speichern';
Font.Style:= [fsBold];
OnClick:= Btnkdspeichern_click;
end;
end;
end;