DBGrid

kan du ikke prøve at forklare hvad den skal kunne - det er ikke umidelbart indlysende. Hvad bruger du Table1 til??

Da det er svært at ”ramme” et bestemt coordinat på en Image, vil jeg prøve at lave
en rektangel uden om coordinatet.
x og y er musens coordinater på en Image.
A= xmin, B=xmax, C=ymin, D=ymax.
Feks. A=100, B=120, C=100, D=120, disse tal danner en rektangel 100/100  120/120 (tallene ligger I DBGrid). Når man klikker med musen indenfor en rektangel, skal DBGrid finde den række hvor tallene
passer og derefter udfører en handling.

Ole

dvs. at i field 3-6 gemmer du coordinaterne?
og så vil du vise det der ligger i  field1, hvor X og Y ligger indenfor det rektangel coordinaterne repræsenterer?

Helt rigtigt.

Ole

Jeg løber alle records igennem, og checker om musens koordinater er indenfor rektanglet. Hvis den aktuelle record matcher stoppes løkken, og field[1] udskrives i lablen. Jeg forstår dog ikke se hvorfor du bruger DBGridets data, og ikke tager dem direkte fra tabellen? Det kunne også laves lidt fiksere, hvis du brugte en TQuery, men det er jo op til dig.

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  A, B, C, D: Integer;
  Found: Boolean;
begin
  Table1.First;
  Found := False;

  while not Table1.Eof and not Found do
  begin
    A := DBGrid1.Fields[3].AsInteger;
    B := DBGrid1.Fields[4].AsInteger;
    C := DBGrid1.Fields[5].AsInteger;
    D := DBGrid1.Fields[6].AsInteger;

    if ((X > A) and (X < B)) and ((Y > C)  and (Y < D)) then
    begin
      Label1.Caption := DBGrid1.Fields[1].AsString;
      Found := True;
    end
    else
      Table1.Next;
  end;

  if not Found then Label1.Caption := \'\';
end;

Tak, det virker helt som det skal.

Ole