Hallo,
ich brauche ein eigenes Webcontrol, ähnlich einer RadioButtonList. Aber ich blicke noch nicht wie ich die einzelnen Tags setzen kann.
Ausserdem würde es mich interessieren, wie man die Arrayliste deklariert, damit man am Propertygrid der Delphi-
IDE die einzelnen Items eingeben kann.
so soll es mal aussehen
<input type="Radio" name='countrys,202' value="eu" >Europa
<input type="Radio" name='countrys,202' value="a" >Austria
<input type="Radio" name='countrys,202' value="b" >Belgium
<input type="Radio" name='countrys,202' value="ch" >Switzerland
<input type="Radio" name='countrys,202' value="hr" >Croatia
<input type="Radio" name='countrys,202' value="dk" >Denmark
Kann mir da bitte jemand helfen?
Danke
Delphi-Quellcode:
unit WebControl2;
interface
uses
System.Web.UI,
System.Web.UI.WebControls,
System.ComponentModel,
System.Collections,
System.Drawing,
Borland.Data.Web;
type
/// <summary>
/// Summary description for MyWebControl2.
/// </summary>
/// [ToolboxBitmap(typeof('PureWebControl.bmp'),'PureWebControl.bmp' )]
///
[ControlBuilder(typeof(System.Web.UI.WebControls.PlaceHolderControlBuilder)),
Designer('
System.Web.UI.Design.ControlDesigner'),
DefaultProperty('
ID'),
ToolboxData('
<{0}:MyWebControl2 runat=server></{0}:MyWebControl2>')]
MyWebControl2 =
class(System.Web.UI.WebControls.WebControl, INamingContainer)
strict private
FText:
String;
FItems : arraylist ;
strict protected
// override RenderContents(..) when you inherit from Web.UI.WebControls.WebControl
procedure RenderContents(Output: HtmlTextWriter);
override;
function GetDesignTimeHtml :
string;
// override Render(..) when you inherit from Web.UI.WebControls.Control
// procedure Render(Output: HtmlTextWriter); override;
public
constructor Create;
published
[LocalizableCategoryAttribute('
PureWeb'),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden),
DefaultValue('
')]
property Items: arraylist
read FItems
write FItems;
[Bindable(false),
Category('
Appearance'),
DefaultValue('
')]
property Text:
string read FText
write FText;
end;
implementation
function MyWebControl2.GetDesignTimeHtml :
string;
begin
result := '
<h1>Blog</h2><hr/><hr/>';
end;
/// <summary>
/// Define a public parameterless constructor needed by web controls.
/// </summary>
constructor MyWebControl2.Create;
begin
inherited;
end;
/// <summary>
/// Render this control to the output parameter specified, preserving
/// cosmetic attribute output generation inherited from standard WebControl.
/// </summary>
/// <param name="output"> The HTML writer to write out to </param>
procedure MyWebControl2.RenderContents(Output: HtmlTextWriter);
begin
Output.
Write(Text);
end;
{$REGION 'Render override'}
(*
/// <summary>
/// Render this control to the output parameter specified.
/// </summary>
/// <param name="output"> The HTML writer to write out to </param>
procedure MyWebControl2.Render(Output: HtmlTextWriter);
begin
Output.Write(Text);
end;
(* *)
{$ENDREGION}
end.