Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.039 c
3-1157540614
Bless
2006-09-06 15:03
2006.11.05
Как в run-time добавить свои field-ы в dataset?


11-1136123221
Аид
2006-01-01 16:47
2006.11.05
Контрол для чата


15-1160636081
ANB
2006-10-12 10:54
2006.11.05
Исправить орфографические ошибки


1-1159182939
Max4
2006-09-25 15:15
2006.11.05
Перехват сообщения в наследнике.


4-1150644667
Aragon
2006-06-18 19:31
2006.11.05
Фильтрация процессов от системных