In dieser
Unit erzeuge ich das Stringgrid grid1 dynamisch, das Panel1 erzeuge ich im Formulardesigner.
Irgend etwas stimmt nicht, weil beim show des Formulars wird nur das Panel, aber kein Stringgrid angezeigt.
Das Panel ist ein schmaler Streifen oben (da kommt eine Toolbar hinein) und lässt noch genug Platz für das Grid
Delphi-Quellcode:
unit fdForm1Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, Global, fdGrid;
type
TfdForm1 =
class(TForm)
Panel1: TPanel;
protected
Grid1: TStringgrid;
end;
procedure showform (
name:
string; param: string='
');
implementation
{$R *.dfm}
procedure showform (
name:
string; param: string='
');
var
f: TfdForm1;
begin
Application.CreateForm(TfdForm1, f);
f.Grid1 := TStringGrid.Create(f);
f.Grid1.align := alClient;
f.Grid1.visible := true;
f.Grid1.Colwidths[0] := 10;
f.Grid1.Options := f.Grid1.Options + [goRowSizing];
f.show;
end;