Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#6

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

  Alt 1. Jul 2007, 23:45
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;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat