Цитата:
Сообщение от flopix
PHP код:
procedure TIgrok.Show;
begin
{Form1.Canvas.TextOut(50,50,num);}
Form1.lbl1.Caption:= 'num';
end;
Подробнее в чем проблема и что вы хотите получить?
У вас загвоздка преобразования числа в строку ?
PHP код:
Form1.lbl1.Caption:= IntToStr(num);
PHP код:
Form1.Canvas.TextOut(50,50,num);
Так делать нежелательно. При первом же перекрытии окна надпись затрется. Для рисования используйте специальные объекты например TImage.
|
В том то и проблема, что почему-то не хочет с Unit1
PHP код:
MyIgrok := TIgrok.Create ('Иванов',11);
MyIgrok.Show;
Связываться с Unit2
PHP код:
Form1.lbl1.Caption:= TIgrok.GetFIO ;
Form1.lbl2.Caption:= IntToStr(TIgrok.GetNum);
на форме выдаёт "Иванов" а цифру "11" не выводит.