Как создать компонент аналог TLabeledEdit? [Delphi, Windows]
BaryVetaL © (2006-01-16 11:12:00)
Я еще не до конца разобрался с темой создания компонентов в
KOL. Каким образом можно создать компонент, например, похожий на
LabeledEdit (включающий Label и Edit)?
Кто мне может ответить на этот вопрос?
Заранее спасибо!
Thaddy (2006-01-16 22:09:00) [1]
Simple example that you can wrap into a component to lrean ;)
{
program Project1;
uses
Kol,unit1 in 'Unit1.pas';
begin
NewForm1( Form1, nil);
Run(Form1.form);
end.
}
unit unit1;
interface
uses
Windows, Messages, Kol;
type
PForm1=^TForm1;
TForm1=object(Tobj)
Form:pControl;
Edit:Pcontrol;
public
end;
procedure NewForm1( var Result: PForm1; AParent: PControl );
var
Form1:pForm1;
implementation
procedure NewForm1( var Result: PForm1; AParent: PControl );
begin
New(Result,Create);
with Result^ do
begin
Form:=
NewForm(AParent,'KOLForm').SetSize(600,400).centeronparent.Tabulate;
Applet:=Form;
Form.Font.ReleaseHandle;
Form.Font.AssignHandle(GetStockObject(DEFAULT_GUI_FONT));
Form.Add2AutoFree(Result);
Edit:=NewEditBox(form,[]);
Edit.CustomObj:=NewLabel(form,'Text').AutoSize(True).PlaceRight;
PControl(Edit.CustomObj).Color:=clRed;
end;
end;
end.
Наверх 
ЧАТ |
Орешник |
|
