Pare (trudnych,chyba) pytań

0

Ma ktoś pomysła jak to zrobić:

  1. Jak odczytać położenie kursora(współżędne) na jakimś komponencie,
    powiedzmy Image lub forma.Było w faq ale nie mogę znależć opisu.
  2. Jak klikniemy myszką na formie to w miejscu kliknięcia(punkt 1) powinien zostać stworzony komponent, powiedzmy jakis button i wyswietlony. Jak to zrobić.
  3. Powiedzmy że stworzyliśmy na formie 5 obrazków. Jak kliknę na jednym z nich to powinien zostać zaznaczony(ramka?) i wyświetlone odpowiednie menu. Jak stwierdzić jaki to obrazek(numer obrazka)?
  4. Punkt 3, tyle że po zaznaczeniu przeciągam obrazek w inne położenie.
0

1: onMouseMove komponentu i x y
2: FaQ
3: nie rozumiem :)

0
  1. Skorzystaj z własciwości Tag

(Sender as TImage).Tag

0

1)Form1OnMouseMove
pobranie pozycji kurosra:

label1.Caption:=IntToStr(x)+' '+' '+IntToStr(y);

aha i nasptempne:

2)w OnClick Form1 wpisz:

var
p : TPoint;
x,y : integer;
butt:TButton;
begin
GetCursorPos(p);
x:=p.x;
y:=p.y;
butt:=TButton.Create(Self);
butt.Parent:=self;
Butt.caption:='cos tam!';
Butt.Left:=x;
Butt.Top:=y;
powinno działac :) - chyba ;-)
3) nie rozumiem !

  1. var
    pos:booelan;
    p:TPoint;
    procedure TForm1.Image1MouseUp
    begin
    pos := false;
    end;

procedure TForm1.Image1MouseMove
Y: Integer);
begin
if pos=true then begin
with Image1 do begin
Left:=Left+(x-p.x);
Top:=Top+(y-p.y);
end;
end;
end;

procedure TForm1.Image1MouseDown
begin
pos := true;
p:=Point(x,y);
end;

pozdrofka !!! [browar]

1 użytkowników online, w tym zalogowanych: 0, gości: 1