Types of actual and formal var parame

[taktaky]

Hallo,

Was ist falsch hier :

Delphi-Quellcode:

begin
  if Msg.Msg = WM_LButtonDown then ToggleCursor  // Reaktion von LeftButtonDown
                                                 // soll verändert werden

                              else Bevel1OrgWinProc(Msg.Msg);  // Zeile 42
end;

ich bekomme diese Meldung :
[Error] Unit1.pas(42): Types of actual and formal var parameters must be identical

[peschai]

Hallo

Zitat:

if Msg.Msg = WM_LButtonDown then ToggleCursor // Reaktion von LeftButtonDown
// soll verändert werden

else Bevel1OrgWinProc(Msg.Msg);
end;

Könnte es sein, daß es mit "Bevel1OrgWinProc(Msg);" funktioniert ?

[taktaky]

mit nur msg statt msg.msg kann zwar das Projekt kompilieren (Ohne Fehler oder Warnung)
aber der Cursor wird nicht ausgeblendet

Der Code soll den Cursor durch Klick auf Bevel ausblenden :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,ShellAPI;

type
  TForm1 = class(TForm)
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);

  private
    procedure myBevel1WinProc(var Msg:TMessage);
 
  public
    end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var Bevel1OrgWinProc  : TWndMethod;

procedure TForm1.myBevel1WinProc(var Msg:TMessage);
 
  procedure ToggleCursor;
  begin
     if Bevel1.Cursor=crDefault then Bevel1.Cursor:=crNone
                                else Bevel1.Cursor:=crDefault;
  end;
   
begin
  if Msg.Msg = WM_LButtonDown then ToggleCursor  // Reaktion von LeftButtonDown
                                                 // soll verändert werden

                              else Bevel1OrgWinProc(Msg); // sonst Original aufrufen
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
  Bevel1OrgWinProc :=Bevel1.WindowProc; // Originaladresse merken
  Bevel1.WindowProc:=myBevel1WinProc;   // deine eigene Fensterprozedur "einklinken"
end;

end.

________

[Zacherl]

Screen.Cursor := crNone

[Mackhack]

//off topic on

Hi taktaky,

wie ich sehe hat unsere Schelte hier dir tatsaechlich die Augen geoeffnet und du faengst an selbst zu coden und zu sehen dass alles machbar ist!

Von mir: und weiter so!

//off topic off

[taktaky]

Zitat von Zacherl:

Screen.Cursor := crNone

Leider der von Dir geschriebenen Code, nur beim schönen Wetter funktioniert

Was wäre wenn ich eine fremde Anwendung in meine Form binde ?! Natürlich wird der Cursor
trotz der Code " Screen.Cursor := crNone" oder "Bevel1.Cursor:=crNone;" nicht ausgeblendt.

Ich binde eine fremde Anwenung in meine Form so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var dhwnd1: THandle;
begin
 shellexecute(1,'open','"test.exe"','','',SW_show);// die fremde Anwendung wird gestartet

 panel1.SetFocus;
 dhwnd1:=FindWindow('TMainForm',nil); // die fremde Anwendung wird gesucht

   if dhwnd1<>0 then Windows.SetParent(dhwnd1, panel1.Handle);
 //EnableWindow(FindWindow('TMainForm', nil),false);

   ShowWindow(dhwnd1, SW_MAXIMIZE); // maximiert fremde Programme


end;

Der Cursor bleibt leider immer eingeblendet, wenn er auf die fremde Anwendung (test.exe, die in Form gebunden ist) sich bewegt.

Die Lage wie du siehst, ist nicht so einfach
________

[Nuclear-Ping]

Überleg doch mal selber: Wenn du auf das Bevel klickst, während sich die fremde Anwendung darin befindet, klickst du nicht auf das Bevel sondern auf die Anwendung.

Fazit: Die Window-Proc wird garnicht erst aufgerufen, denn du klickst nicht auf das Bevel sondern auf die Anwendung.

Ergo müsstest du die fremde Anwendung irgendwie so umbiegen, dass SIE (und nicht DEIN Prog) beim Klick auf sie den Cursor ausblendet. Aber das ist schonwieder ein Kapitel für sich. An deiner Stelle würde ich mit dem Cursor leben. ... Quark ...

Edit:
Am besten legst du ein TImage mit Align = alClient auf das Bevel, reagierst dort einfach auf den Image1.OnClick und blendest ihn mit Image1.Cursor := crNone oder so aus.

Und jetzt mach nicht wieder Screenshots, wenn er meint "Undefined identifier: Cursor" bei Image1. Ich hab keine Ahnung, ob Image1 eine Cursor-Eigenschaft hat. Ich weiß nichtmal, ob Image überhaupt ein OnClick hat. Habs nicht getestet. Sonst machs halt mit nem transparenten Panel und Screen.Cursor - aber da blendet es im ganzen System den Cursor aus.

[taktaky]

Zitat von Nuclear-Ping:

...
Am besten legst du ein TImage mit Align = alClient auf das Bevel, reagierst dort einfach auf den Image1.OnClick und blendest ihn mit Image1.Cursor := crNone oder so aus.
...

Na gut. Der Cursor wird durch Klick auf TImage ausgeblendet aber wenn ich die fremde Anwendung
lade (die in Panel unter TImage posisioniert) dann kann der Cursor nie ausgeblendet werden.

Ich habe versucht TImage mit Control (bring to Front) nach vorne zu verschieben ohne Erfolg !!!



______

[Nuclear-Ping]

Naja, wie du ja weißt (http://www.delphipraxis.net/internal...t.php?t=119222) kann man ein TImage nicht mit BringToFront behandeln. Such dir ein transparentes Panel oder so.

[alzaimar]

Kann man nicht einfach einen Mousehook setzen, mit dem man dann kontrollieren kann, wie der Zeiger aussehen soll?