Вверх ↑
Администрация
Ответов: 15294
Рейтинг: 1518
#1: 2007-07-18 13:25:22 ЛС | профиль | цитата
User108, простой пример:
KOL
 form := NewForm(Applet, 'text').SetSize(800, 600);[/code]
VCL
form := TForm.Create(Application);
form.Caption := 'text';
form.width := 800;
form.height := 600;

еще пример:
KOL
procedure onMouseDown(Sender: PControl; var Mouse: TMouseEventData);
begin
if Mouse.X > Mouse.Y then
Sender.Text := 'X > Y';
end;

VCL
procedure onMouseDown(Sender: TObject; x,y:integer; shift:TShiftState);
begin
if X > Y then
TEdit(Sender).Text := 'X > Y';
end;

обрати внимание, что без полного разбора исходника с большой базой дополнительных знаний перевести одно в другое не выдет, поскольку нужно знать какие ф-ции к каким конкретно событиям привязаны, а так же точные соответствия между элементами пакета.
карма: 26
0