Bei Click auf Canvas, kleines Fenster mit Hinweisen???

[winx]

Hallo,

ist es irgendwie möglich, dass ich an meinem Cursor, sobald er auf das Canvas klickt,
ein kleines (evtl halbdurchsichtiges) Fenster mit variablen Texten aufpoppen lasse,
dass nach Beenden des klickens wieder zugeht?

danke,
winx

[bitsetter]

Hi,

den Event onMouseDown und onMouseUp deines Formulars könntest du folgenden Code hinzufügen:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FormHinweis.Left:= mouse.CursorPos.X;
  FormHinweis.Top:= mouse.CursorPos.Y;
  FormHinweis.Show
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FormHinweis.Showing then
    FormHinweis.Close
end;

Es wird also ein 2. Formular geöffnet, wo du vorher noch den BorderStyle auf bsNone sowie AlphaBlend auf true setzt und AlphaBlendValue einen Wert zuweist.
Für variable Texte kannst du ja ein TLabel oder TMemo nehmen und diese gegebenfalls dynamisch erstellen.

[winx]

Hi,

also da klappt...das einzige Problem ist jetzt noch, das das neue Form, das aufgeht irgendwie "flabbert",
selbst wenn ich nur Show() aufrufe, wenn not Showing()...

haste da auch noch nen Tip?

Danke

[Luckie]

Welchen Windowsfehlercode hat "flabbern"?

[winx]

hab da noch ein Problem, egal welche Werte ich für Farb einstelle, sie ist immer Grau!!!

kann das daran liegen, dass das Formular sehr schnell, sehr oft (beim drehen mit der maus ja klar) aufgerufen wird???

Und: Bekomme ich die Ecken des Formulars rund???

[bitsetter]

Zitat von winx:

kann das daran liegen, dass das Formular sehr schnell, sehr oft (beim drehen mit der maus ja klar) aufgerufen wird???

Wenn du im onMouseDown Event das 2. Formular anzeigen tust, müsste es doch eigentlich egal sein wie schnell du die Maus bewegst. Oder hast du ein anderes Event genommen?

Zitat von winx:

hab da noch ein Problem, egal welche Werte ich für Farb einstelle, sie ist immer Grau!!!

Was hast du denn für ein Betriebsystem? Bei mir wird das Formular unter WinXP mit der richtigen Farbe und auch transparent angezeigt.

Zitat von winx:

Und: Bekomme ich die Ecken des Formulars rund???

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender:TObject);
var
  HR: HRGN;
begin
  HR := CreateRoundRectRgn(0, 0, Width, Height, 25, 25);
  if HR <> 0 then
    try
      SetWindowRgn(Handle, HR, True);
    except
      DeleteObject(HR);
    end;
end;