24/09/2024 - Alka ha scritto:
24/09/2024 - marianzo ha scritto:
Scusate dove dovrei definire la ‘Init’ perche non mi dia errore.
Il codice della Unit2 è corretto?
Mi riferisco ad esempio a questa parte:
unit Unit2;
interface
uses
private
{ Private declarations }
public
procedure Init;
{ Public declarations }
end;
implementation
E' letteralmente così? Oppure hai rimosso arbitrariamente qualche riga di codice?
Lo chiedo perché quel codice non ha assolutamente senso scritto così: devi studiare come è fatta una tipica Unit di Delphi, descritta anche nella documentazione ufficiale; il Frame in sé non può essere dichiarato così: manca il nome della classe e altre cose… se ne crei uno da zero vedi subito la differenza (ma questa deve saltare all'occhio studiando la programmazione a oggetti con Delphi).
Ciao Marco
forse ho tolto qualcosa in più. Vedi questo
unit Articoli;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, dxBarBuiltInMenu,
cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxPC,
AdvToolBtn, Vcl.ExtCtrls, JvExExtCtrls, JvExtComponent, JvSpacer, Vcl.ToolWin,
Vcl.ComCtrls, JvExComCtrls, JvToolBar, RzPanel, RzButton, System.ImageList,
Vcl.ImgList, cxContainer, cxEdit, Vcl.Menus, cxStyles, cxCustomData, cxFilter,
cxData, cxDataStorage, cxNavigator, dxDateRanges, dxScrollbarAnnotations,
Data.DB, cxDBData, cxDBLookupComboBox, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxGroupBox, cxRadioGroup,
cxDBEdit, Vcl.StdCtrls, cxButtons, cxTextEdit, cxMaskEdit, cxBlobEdit,
Vcl.DBCtrls, RzDBCmbo, Vcl.Mask, RzEdit, RzDBEdit, RzRadChk, RzDBChk,
RzRadGrp, RzLabel, RzTabs, cxCheckBox, cxCurrencyEdit, Vcl.Buttons,
AdvGlassButton, JvComponentBase, JvFormAutoSize, FireDAC.Stan.Param;
type
TFrameArticoli = class(TFrame)
RzToolbar1: TRzToolbar;
btnInserisci: TRzToolButton;
RzSpacer2: TRzSpacer;
btnModifica: TRzToolButton;
RzSpacer1: TRzSpacer;
btnElimina: TRzToolButton;
RzSpacer3: TRzSpacer;
btnSalva: TRzToolButton;
RzSpacer4: TRzSpacer;
……
procedure PgArticoliEnter(Sender: TObject);
procedure ComboBoxTipoArtEnter(Sender: TObject);
procedure ComboBoxTipoArtExit(Sender: TObject);
procedure rzPnlArticoliEnter(Sender: TObject);
procedure FrameEnter(Sender: TObject);
procedure FrameResize(Sender: TObject);
procedure grdElencoArticoliDBTableView1DblClick(Sender: TObject);
private
{ Private declarations }
public
procedure Init;
{ Public declarations }
end;
implementation
{$R *.dfm}
uses Comune, Globale;
procedure TFrameArticoli.Init;
begin
//
end;