Текущий архив: 2006.11.05;
Скачать: CL | DM;

Вниз

Как создать компонент аналог TLabeledEdit?   Найти похожие ветки 

← →
BaryVetaL ©   (2006-01-16 11:12) [0]

Я еще не до конца разобрался с темой создания компонентов в KOL. Каким образом можно создать компонент, например, похожий на LabeledEdit (включающий Label и Edit)?

Кто мне может ответить на этот вопрос?
Заранее спасибо!

---

← →
Thaddy   (2006-01-16 22:09) [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.


---

Страницы: 1 вся ветка

Текущий архив: 2006.11.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.041 c