[es] - Labeli na dinamicki kreiranoj formi

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
*.teol.net.

+19 Profil

^{08.01.2009. u 02:29 - pre 186 meseci}

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;

Odgovor na temu

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 108
89.216.103.*

ICQ: 156892888

+1 Profil

Re: Labeli na dinamicki kreiranoj formi

^{08.01.2009. u 06:10 - pre 186 meseci}

Zameni svuda

Code:

ParentWindow := frDialog.Handle;

Code:

Parent := frDialog;

Marcha
-----------------------------------
Pretpostavka je majka zajeba.

Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
87.250.102.*

+19 Profil

Re: Labeli na dinamicki kreiranoj formi

^{08.01.2009. u 15:44 - pre 186 meseci}

Hvala

Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
87.250.102.*

+19 Profil

Re: Labeli na dinamicki kreiranoj formi

^{08.01.2009. u 22:28 - pre 186 meseci}

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?

Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
87.250.102.*

+19 Profil

Re: Labeli na dinamicki kreiranoj formi

^{08.01.2009. u 23:27 - pre 186 meseci}

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?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Labeli na dinamicki kreiranoj formi

^{09.01.2009. u 16:31 - pre 186 meseci}

> 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.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
87.250.102.*

+19 Profil

Re: Labeli na dinamicki kreiranoj formi

^{09.01.2009. u 22:33 - pre 186 meseci}

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Labeli na dinamicki kreiranoj formi

^{10.01.2009. u 01:36 - pre 186 meseci}

> 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.

Odgovor na temu