Rahmenwahl und Cursorstandpunkte

[ChinEnte]

Und wieder einmal haben wir zwei Fragen:

• Wie lese ich aus einem eingelesenen Bild einen Rahmen aus, der mittels X- und Y-Koordinaten angegeben wird, Farbwerte ab und geben sie aus? Generell wissen wir, wie wir ablesen und ausgeben, aber wir wissen nicht, wie wir das pixelspezifisch und innerhalb eines Rahmens machen.
• Wir würden gerne die Position des Cursors laufend angeben. Dies machen wir über Canvas.textout. Leider funktioniert das nur, wenn keinerlei Dinge wie Buttons, Images, etc. "Im Weg" stehen. Was tun? Warum funktioniert der angegebene Code nicht, wenn er über Buttons etc. geht?

Code:

procedure TForm1.Position(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
canvas.textout(clientwidth-70, clientheight-15, 'X:');
canvas.textout(clientwidth-60, clientheight-15, inttostr(X));
canvas.textout(clientwidth-30, clientheight-15, 'Y:');
canvas.textout(clientwidth-20, clientheight-15, inttostr(Y));
end;

Mit hoffe auf rasche Antwort,

Andi und Philipp

[Joe24]

Das MouseMove-Event in Form1 abgefangen

Delphi-Quellcode:

TForm1 = class( TForm)
 private
  ...
  procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  ...
end;

procedure TForm1.WMMouseMove(var Message: TWMMouseMove);
begin
  inherited;
  (* Methodenaufruf zu dem Code einfügen *)
end;

[3_of_8]

Ich würds mit zwei TLabels machen und dann label1.caption:=mouse.cursorpos.x-form1.left und label2.caption:=mouse.cursorpos.y-form1.top. Müsste klappen, ich hab vor kurzem so was ähnliches gemacht.

[Khabarakh]

Oder auch:

Delphi-Quellcode:

var RelPosition: TPoint;
begin
  RelPosition := ScreenToClient(Mouse.CursorPos); //Methode von Form1, sonst Form1.ScreenToClient
  Label1.Caption := Format('%d , %d',[RelPosition.X, RelPosition.Y]);
end;

[ChinEnte]

Leider funktioniert das mit der Standortbestimmung der Maus immernoch nicht. Dafür haben wir eine andere Frage:

Kann man eine Variable, z.B. über Canvas.textout auch über mehrere Formblätter (Units) ausgeben? Wir versuchen gerade, dass auf einen Button-Click hin Werte ausgelesen werden und wollen diese in einem aufklappenden Formblatt ausgeben. Alternativ auch gerne als Dokument. Got any ideas?

[Khabarakh]

Eine globale Variable in der Hauptunit ist der schnellste und unsauberste Weg:

Delphi-Quellcode:

unit Unit1;

[...]

var
  Form1: TForm1;
  MousePosition: TPoint;
{ Besser als Feld von TForm1 deklarieren:
type
  TForm1 =
  [...]
  public
    MousePosition: TPoint;}
...

unit Unit2;

interface

uses Unit1, ...;
[...]

  Canvas.TextOut(Format(MousePosition, ...));
// bzw. Form1.MousePosition

Eine Methode von Form2 wäre hier aber auch nicht schlecht:

Delphi-Quellcode:

type
  TForm2
  public
    procedure DrawPos(Pos: TPoint);

...

// Unit1
uses Unit2;

[...]

  DrawPos(RelMousePos);

Edit: Eigentlich gilt: Neue Frage, neuer Thread

[ChinEnte]

danke werdens gleich mal ausprobieren