Daniel Rivers's questions

Hi, I have the following problem:

I'm trying to create a simple form at runtime where some are displayed TLabel, and I need each one to be centered and at a certain height. I've been able to center them correctly using TLabel.Align := alClientand TLabel.Alignment := taCenter, but I can't get it to the height I need, because TLabel.Layoutit only lets me specify top, center, or bottom.

How can I assign TLabela height value like ClientHeight div 3?

I have this code to create a label:

with TLabel.Create(Self) do
begin
  Align := alClient;
  Alignment := taCenter;
  Top := (F.ClientHeight div 3) * 2;
  caption:= 'Texto de la etiqueta';
  Font.Size:= 18;
  Font.Color := RGB(128, 0, 0);
  Parent:= F;
end;

It seems that when applying Alignand Alignmentit ignores what I specify in Top, then I don't know how to give it the desired value.

EDIT :

I am using Lazarus v1.6RC1in Windows 10. The app is also for Windows 10.

Thanks in advance.

I'm new to delphi/free pascal and I think I have a misconception, since I'm used to java and maybe things can't be approached in the same way. I hope you can help me.

I am using Lazarus v1.6RC1.

I have a class TControlin a unit uControland a class TRedin a unit TRed. The unit uControlhas the unit uRedin uses. The case TControlhas an attribute called FRed, whose type is TRed(is an instance of TRed). The thing is that at a given moment, I need to call a procedure from . My intention is to have access to the instance of from , to be able to access its methods, that's something I did in java, but here it doesn't seem to work. What I am doing is the following:TControlTRedTControlTRed

class TControl:

TControl = class(TObject)
    procedure procesaEntradaRed(pComando : TComando)
public
    FRed : TRed;

class TRed:

TRed = class(TObject)
    constructor Create(pControl : TControl)
public
    FControl : TControl;

When I install TRedit TControlI do it like this:

FRed := TRed.Create(Self);

And the constructor of TRedis like this:

constructor TRed.Create(pControl : TControl)
begin
    FControl := pControl;
end;

The call in which I have the error is this:

FControl.procesaEntradaRed(lComando);

The error message is the following:

uRed.pas(662,12) Error: identifier idents no member "procesaEntradaRed"

I have tried to see which methods were visible TControlfrom TRed, and none of the ones I created in TControlare visible, although the own methods of TObject.

I have put only the parts of the code that are involved in the problem to be concise.

Thanks in advance and sorry for the inexperience.

EDIT:

The line where I make the call is found in uRed, at the end of a procedure whose declaration is:

procedure TRed.UDPRead(AThread: TIdUDPListenerThread; const AData: TidBytes; ABinding: TIdSocketHandle); 

However, commenting out that line throws an error when instantiating TRed, passing Self as a parameter:

FRed := TRed.Create(Self);

The error is the following:

uControl.pas(146,69) Error: Incompatible type for arg no. 3: Got > >"UCONTROL.TControl", expected "CONTROLS.TControl"

It says that parameter 3 fails, it is because I also pass 2 strings, I do not show them so as not to confuse.

The fault seems to be in the Self, but I don't know how to fix it.