Frame kann Objekte des Formulars nicht ändern

[himitsu]

Ups und achso, na dann.

Zitat von Der schöne Günther:

Das meinst du mit "beibringen", oder?

Wenn man den Frame auf eine Form pappt, dann sollte der OI auch dessen Property zur Bearbeitung anzeigen.
Notfalls lässt der sich noch recht leicht bei der IDE als Komponente registrieren. (RegisterComponents)
Mir ist aber so, als wenn das auch ohne Registrierung geht.


Wenn der Frame aber selber eigene bearbeitbare Property enthalten soll, dann muß man den wohl ableiten und einen Vorfahr mit den Property als neues CustomModule (ala TForm, TDataModule, TFrame) beim Delphi registrieren.
http://www.delphipraxis.net/180298-e...istrieren.html

[himitsu]

*doppelpost*

[Ykcim]

So zurück aus zwei Besprechungen...

Vielen Dank für die Antworten!!! Ich setze mich jetzt hin und versuche was zu lernen!

Melde mich
Gruß Patrick

[Ykcim]

Hallo Zusammen,

@ Sir Rufus: Vielen Dank für die Vereinfachung. Sie gefällt miir auch wesentlich besser!!!

@DeddyH und himutsu und ...

Vielen Dank für die Erklärung! ich habe jetzt folgendes versucht:

Frame_Uebersicht:

Delphi-Quellcode:

unit Frame_UebersichtUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, AdvObj,
  BaseGrid, AdvGrid, Vcl.ExtCtrls, AdvGlowButton, Vcl.StdCtrls, AdvEdit, DBAdvEd,
  TGridDesignUnit, TAuftragUnit, Frame_DetailsUnit;

type
   TEvent_Select = procedure(Sender: TObject; const Auftrag: TAuftrag) of object; //Hinzugefügt
   TFrame_Uebersicht = class(TFrame)
      Grid_Uebersicht: TAdvStringGrid;
      Panel_Titel: TPanel;
      Glow_Aktualisieren: TAdvGlowButton;
      Edit_Schnellsuche: TDBAdvEdit;
      procedure FrameResize(Sender: TObject);
      procedure Grid_UebersichtGetAlignment(Sender: TObject; ARow, ACol: Integer;
         var HAlign: TAlignment; var VAlign: TVAlignment);
      procedure Grid_UebersichtGetFloatFormat(Sender: TObject; ACol,
         ARow: Integer; var IsFloat: Boolean; var FloatFormat: string);
      procedure Grid_UebersichtGetCellColor(Sender: TObject; ARow, ACol: Integer;
         AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
      procedure Grid_UebersichtClick(Sender: TObject);
   private
      { Private-Deklarationen }
      FOnDataClick: TEvent_Select; //Hinzugefügt
   public
      { Public-Deklarationen }
      property OnDataClick: TEvent_Select read FOnDataClick write FOnDataClick; //Hinzugefügt
   end;

implementation

{$R *.dfm}

procedure TFrame_Uebersicht.Grid_UebersichtClick(Sender: TObject);
begin
   Auftrag.Get_Auftrag(Grid_Uebersicht.Cells[1,Grid_Uebersicht.Row], Grid_Uebersicht.Cells[3,Grid_Uebersicht.Row]);
   if Assigned(FOnDataClick) then //hinzugefügt
      FOnDataClick(self, Auftrag);
end;

end.

In dem Hauptformular:

Delphi-Quellcode:

type
   TMain = class(TAdvToolBarForm)
   ...
   private
      { Private declarations }
      procedure Details_exec(Sender: TObject; const Auftrag: TAuftrag); //Abgeändert
   protected
      { Protected declarations }
   public
      { Public declarations }
      procedure Uebersicht_exec;
      procedure Clear_Details;
   end;

var
   Main: TMain;

implementation

{$R *.dfm}

procedure TMain.Uebersicht_exec;
begin
   Uebersicht.Get_Uebersicht(User.User_ID);
   FillAdvGrid(Frame_Uebersicht1.Grid_Uebersicht, Uebersicht.Uebersicht_Cols, Uebersicht.Uebersicht_Rows);
   GridDesign.GridDesign(Frame_Uebersicht1.Grid_Uebersicht);
end;

procedure TMain.Details_exec(Sender: TObject; const Auftrag: TAuftrag); //abgeändert
begin
   Clear_Details;
    Label_ArtikelNr.Caption := Artikel.Artikel_Nr;
    Label_Bezeichnung1.Caption := Artikel.Bezeichnung1;
    Label_Gewicht.Caption := VarFloatToStr( Artikel.Gewicht, '-' );
    Label_Sicherheitsbestand.Caption := VarIntToStr( Artikel.Sicherheitsbestand, '-' );
    Label_AuftragNr.Caption := Auftrag.Auftrag_Nr;
    Label_Menge.Caption := VarIntToStr( Auftrag.Auftrag_Menge, '-' );
    Label_AuftragStatus.Caption := VarIntToStr( Auftrag.Auftrag_Status, '-' );
    Label_EilFA.Caption := IfThen( Auftrag.EilFa, 'Ja', 'Nein' );
    Label_KritAT.Caption := VarFloatToStr( Auftrag.KritAT, '-' );
    Label_Lagerzugang.Caption := DateToStr( Auftrag.Lagerzugang );
    Label_AGStatus.Caption := VarIntToStr( Arbeitsgang.AG_Status, '-' );
    Label_RMDatum.Caption := DateToStr( Arbeitsgang.RM_Datum );
    Label_RMMenge.Caption := VarIntToStr( Arbeitsgang.RM_Menge, '-' );
    Label_AGNr.Caption := VarIntToStr( Arbeitsgang.AG_Nr, '-' );
    Label_AGBezeichnung.Caption := Arbeitsgang.AG_Bezeichnung;
    Label_Maschine.Caption := Arbeitsgang.Maschine_Bezeichnung;
    Label_MaschineNr.Caption := Arbeitsgang.Maschine_Nr;
    Label_Bezeichnung2.Caption := Artikel.Bezeichnung2;
end;

procedure TMain.Clear_Details;
begin
   Label_ArtikelNr.Caption:= '';
   Label_Bezeichnung1.Caption:= '';
   Label_Gewicht.Caption:= '';
   Label_Sicherheitsbestand.Caption:= '';
   Label_AuftragNr.Caption:= '';
   Label_Menge.Caption:= '';
   Label_AuftragStatus.Caption:= '';
   Label_EilFA.Caption:= '';
   Label_KritAT.Caption:= '';
   Label_Lagerzugang.Caption:= '';
   Label_AGStatus.Caption:= '';
   Label_RMDatum.Caption:= '';
   Label_RMMenge.Caption:= '';
   Label_AGNr.Caption:= '';
   Label_AGBezeichnung.Caption:= '';
   Label_Maschine.Caption:= '';
   Label_MaschineNr.Caption:= '';
   Label_Bezeichnung2.Caption:= '';
   Label_Gewicht.Caption:='';
end;

procedure TMain.FormCreate(Sender: TObject);
begin
   Frame_Uebersicht1.OnDataClick:=Details_exec(Frame_Uebersicht1.Grid_Uebersicht, Auftrag); //eingefügt
end;

end.

Leider kann ich das so nicht kompilieren.
Fehler:
[DCC Fehler] MainUnit.pas(356): E2010 Inkompatible Typen: 'TEvent_Select' und 'procedure, untyped pointer or untyped parameter'
Könnt Ihr mir noch ein bißchen weiterhelfen?

Vielen Dank
Patrick

[DeddyH]

Du bekommst die Parameter im Event, daher kannst Du sie nicht setzen.
Frame_Uebersicht1.OnDataClick:=Details_exec; Damit sollte es gehen.

[Ykcim]

Das hatte ich auch erst versucht. Aber dann kommt die Meldung:
[DCC Fehler] MainUnit.pas(356): E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich' Gruß Patrick

[DeddyH]

TAuftrag ist in beiden Units exakt derselbe Typ?

[Ykcim]

Vergiss es!!!

ES KLAPPT!!! Jetzt versuche ich das Ganze noch besser zu verstehen. Das muss ich sicherlich noch 40 mal in der Software anwenden. Danach sollte ich es können.


Vielen Dank für die Hilfe. Eventuell muss ich mich noch mal melden, wenn es die nächste Fälle - aber ich versuche es zu verstehen!

Nochmal danke!

Patrick

[Ykcim]

TAuftrag ist ein Objekt mit den Auftragsdaten (Es gibt auch noch ein Objekt mit den Artikeldaten) und wo noch paar Proceduren sind. Diese Objekt liegen in eigenen Units und sind dort, wo sie benötigt werden eingebunden. Das heißt wenn ich in einer Unit das Objekt Auftrag:TAuftrag ändere und die Daten aktuelisiere, dann stehe die neuen Daten auch in den anderen Units, in denen die AUftragsUnit eingebunden steht, zur Verfügung.

So jedenfalls handle ich das derzeit, aber ich bin auch noch nicht soo fit ind OOP.

Gruß Patrick

[Ykcim]

Kann ich eigentlich das Objekt von TAuftrag mit über die Methode geben, ohne das TAuftrag im Hauptfenster eingebunden ist?