Registriert seit: 9. Mär 2009
Ort: Heidelberg
440 Beiträge
Delphi 2007 Professional
|
Re: Probleme mit in Tstringgrid eingelagerte Combobox
13. Jul 2009, 18:04
Hi,
hab folgendes geändert:
Delphi-Quellcode:
unit u_grid;
interface
uses
SysUtils, Classes, Controls, Grids, stdctrls, Graphics, extctrls;
Type
TUstringgrid=class (Tpanel)
constructor Create(AOwner: TComponent); override;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
cb:Tcombobox;
sg:Tstringgrid;
procedure add(s: string);
end;
implementation
constructor TUstringgrid.Create(AOwner: TComponent);
begin
inherited;
sg:=tstringgrid.Create(self);
sg.Parent:=self;
cb:=tcombobox.Create(self);
cb.Parent:=self;
Align:=alnone;
cb.Width:=sg.defaultcolwidth;
sg.width:=width;
sg.Height:=height;
Color:=clAppWorkSpace;
sg.Fixedrows:=0;
sg.Fixedcols:=0;
cb.BringToFront;
end;
procedure TUstringgrid.add(s: string);
begin
cb.Items.Add(s);
end;
end.
Scheinbar ist es so, dass die beiden Komponenten combobox und stringgrid einen gemeinsamen Parent benötigen.
Vielen Dank für die "tatkräftige und konstruktive" Mithilfe.
Rainer Unger Mein Profil:
Studium Allgemeine Elektrotechnik TH Darmstadt
Entwicklung von Tools für die Rundsteuer und Zählertechnik.
uP's Atmel Prozessoren (ATmega16,32,88...) in C und Assembler.
|