Labeli na dinamicki kreiranoj formi

[ Nemanja_666 @ 08.01.2009. 02:29 ] @

Zasto na dinamicki kreiranoj formi (kod dolje) se ne vide labeli. Ostali objekti se vide sem labela. Pokusao sam sve sta mi je palo na pamet, ali i dalje ne znam gdje grijesim.

Code:

procedure TMapViewer.MouseLButtonDBClick(var Msg: TMessage);
var
  frDialog : TForm;
  btOK, btCancel : TButton;
  lbName, lbSize : TLabel;
  edtName : TEdit;
  tbSize : TTrackBar;
begin
  frDialog := TForm.Create(Self);
  btOK := TButton.Create(frDialog);
  btCancel := TButton.Create(frDialog);
  lbName := TLabel.Create(frDialog);
  lbSize := TLabel.Create(frDialog);
  edtName := TEdit.Create(frDialog);
  tbSize := TTrackBar.Create(frDialog);
  with frDialog do
    begin
      Left := 0;
      Top := 0;
      Caption := 'Form2';
      ClientHeight := 125;
      ClientWidth := 230;
      Color := clBtnFace;
      Font.Charset := DEFAULT_CHARSET;
      Font.Color := clWindowText;
      Font.Height := -11;
      Font.Name := 'Tahoma';
      Font.Style := [];
      OldCreateOrder := False;
      PixelsPerInch := 96;
    end;
  with btOK do
    begin
      ParentWindow := frDialog.Handle;
      Left := 71;
      Top := 92;
      Width := 73;
      Height := 25;
      Caption := 'OK';
      TabOrder := 1
    end;
  with btCancel do
    begin
      ParentWindow := frDialog.Handle;
      Left := 148;
      Top := 92;
      Width := 73;
      Height := 25;
      Caption := 'Cancel';
      TabOrder := 2;
    end;
  with lbName do
    begin
      ParentWindow := frDialog.Handle;
      Left := 16;
      Top := 16;
      Width := 22;
      Height := 13;
      Caption := 'Ime:';
      ParentFont := false;
    end;
  with lbSize do
    begin
      ParentWindow := frDialog.Handle;
      Color := clBlack;
      Left := 16;
      Top := 48;
      Width := 39;
      Height := 13;
      Caption := 'Velicina:';
      Visible := true;
    end;
  with edtName do
    begin
      ParentWindow := frDialog.Handle;
      Left := 71;
      Top := 13;
      Width := 150;
      Height := 21;
      TabOrder := 0;
      Text := 'Edit1'
    end;
  with tbSize do
    begin
      ParentWindow := frDialog.Handle;
      Left := 65;
      Top := 44;
      Width := 163;
      Height := 29;
      TabOrder := 3;
    end;
  frDialog.ShowModal;
  frDialog.Free;
end;

[ marcha @ 08.01.2009. 06:10 ] @

Zameni svuda

Code:

ParentWindow := frDialog.Handle;

Code:

Parent := frDialog;

[ Nemanja_666 @ 08.01.2009. 15:44 ] @

Hvala

[ Nemanja_666 @ 08.01.2009. 22:28 ] @

Jos jedno pitanje, nije u pitanju sa labelima, ali je isti program pa da ne otvaram novu temu.

Pozivanjem funkcije:

Code:

function TCities.GetCities(Viewport : TRect): TList<TCityData>;
var
  Iterator : TCityData;
begin
  Result := TList<TCityData>.Create;
  if FCities.Count = 0 then Exit;
  for Iterator in FCities.Values do
    if PtInRect(Viewport, Point(Iterator.Position.X, -Iterator.Position.Y)) then
      Result.Add(Iterator);
end;

Nasumicno(ponekad) dobijem Access violation. Zasto?

[ Nemanja_666 @ 08.01.2009. 23:27 ] @

Rijesio sam problem tako sto sam dodao unit ShareMem i vise se ne desava. Nije mi jasno zasto kad nisam koristio DLL-ove. Mozda zbog genercs-a?

Nego u delphi 2009 me nesto nervira. Neke linije koda su oznacene kao da u njima ima greska, iako se kod sasvim uredno kompajlira?

[ savkic @ 09.01.2009. 16:31 ] @

> Nego u delphi 2009 me nesto nervira. Neke linije koda su oznacene kao da u njima ima greska, iako se kod sasvim uredno kompajlira?

To se valjda zove error insight, uglavnom problem je što taj deo ne koristi kompajler za proveru ispravnosti već neki drugi parser koji se ne snalazi u svim situacijama, pokušaj da downloaduješ update, ako to ne pomogne možeš da ignorišeš te greške ili da isključiš čitav error insight sistem.

[ Nemanja_666 @ 09.01.2009. 22:33 ] @

Ne isljucuje mi se error insight, da li mozda postoji neki switch da se moze iskljuciti na odredjenim dijelovima koda. Trazio sam ali bez uspjeha.

PS. Vec imam instaliran update 2

[ savkic @ 10.01.2009. 01:36 ] @

> Ne isljucuje mi se error insight, da li mozda postoji neki switch da se moze iskljuciti na odredjenim dijelovima koda. Trazio sam ali bez uspjeha.

Teško, pokušaj da preraspodeliš redosled unita u uses sekciji, čitao sam da to nekada pomogne.