[delphi] Odoslat nazov 'Image1' do procedury

• Citovať príspevok

Príspevok od používateľa DomCZo » 29 okt 2007, 16:24

Cavte. Mam taky problem.

Kód: Vybrať všetko

procedure Posun(ktory: XXX);
begin
  ktory.Left := 
  ktory.Top := 
end;

Co mam napisat do toho XXX aby to fungovalo? Alebo to ma byt uplne inak?

Chcem hybat s objektom Image1 - menit jeho Left a Top poziciu. Skusal som uz TBitmap, TObject, ale nejako mi to nejde.

// Zaroven by to asi chcelo poslat mu aj, ze sa jedna o Form1, ze?

Ako by sa to dalo nastavit vseobecne, ked to dam do Image1 aby odoslal vzdy seba (Form1.Image1), ked do Image2 (Form1.Image2) hm? Diki za pomoc, ak niekto pomoze

• Citovať príspevok

Príspevok od používateľa ... » 29 okt 2007, 16:36

TBitmap nema vlastnosti Left, Top, rovnako ani TObject (az jeho potomok TControl, ktoreho potomkom je zas TImage) ... co tak teda skusit procedure Posun(ktory: TImage) ?

a druhej casti otazky celkom nerozumiem asi... co budes davat do Image1/2 ?

inak kod ktory som skusal

Kód: Vybrať všetko

procedure Posun(ktory: TImage);
begin
  ktory.Left := 10;
  ktory.Top := 30;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Posun(Image1);
end;

• Citovať príspevok

Príspevok od používateľa DomCZo » 29 okt 2007, 16:49

procedure TForm1.Image2Click(Sender: TObject);
begin
  Posun(Image2);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
  Posun(Image3);
end;

• Citovať príspevok

Príspevok od používateľa ... » 29 okt 2007, 16:55

procedure TForm1.ImageClick(Sender: TObject);
begin
  Posun(Sender as TImage);
end;

• Citovať príspevok

Príspevok od používateľa audiotrack » 29 okt 2007, 17:26

procedure TForm1.Image1Click(Sender: TObject);
begin
  posun(Sender);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  posun(Sender);
end;

. 
.
.

procedure TForm1.posun(Sender:TObject);
begin
 if sender is TImage then with (sender as TImage) do Left:=left+5 else
 if sender is TButton then with (sender as TButton) do width:=width-3 else
 if sender is TEdit then with (sender as TEdit) do top:=top+5;
.
.
.
end;

• Citovať príspevok

Príspevok od používateľa ... » 29 okt 2007, 18:14

• Citovať príspevok

Príspevok od používateľa DomCZo » 30 okt 2007, 19:25

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 34;

  Image[i].Left := 200;
  Image[i].Top := 200;
end;

• Citovať príspevok

Príspevok od používateľa audiotrack » 30 okt 2007, 21:18

• Citovať príspevok

Príspevok od používateľa ... » 30 okt 2007, 22:19

• Citovať príspevok

Príspevok od používateľa DomCZo » 30 okt 2007, 23:15

audiotrack: vytvarat objekty sme sa este neucili, takze to zatial ani nechcem vediet

...: ano, tych obrazkov je 16. diki, urobil som to s tym polom a funguje.

• Citovať príspevok

Príspevok od používateľa audiotrack » 31 okt 2007, 0:13

  var obrazky:array[1..16] of TImage;  //globálna
.
.
.

procedure TForm1.vytvor(n:integer);
begin
   obrazky[n]:=TImage.create(nil);
   with obrazok do begin
      parent:=Form1;
      autosize:=true;
      ...  //ponastavuješ všetky vlastnosti
   end;
end;

• Citovať príspevok

Príspevok od používateľa chrono » 31 okt 2007, 0:37