WndProc Problem

[Neutral General]

Hi,

Es geht mal wieder um meine VCL. Also ich hatte es bisher so, das wenn ich sowas hatte:

TEdit = class(TControl); Das zuerst das TEdit.WndProc die Nachrichten behandelt hat und dann TControl.WndProc und dann die eigentliche Standard-WndProc.

Dann ist mir eingefallen das, dass eigentlich unlogisch ist und man es so machen sollte:

Delphi-Quellcode:

procedure TEdit.WndProc(var Message: TMessage);
begin
  inherited WndProc(Message); // neu
  case Message.Msg of
    //
  end;
  // inherited WndProc(Message); alt
end;

procedure TControl.WndProc(var Message: TMessage);
begin
  Message.Result := DefProc(FHandle,Message.Msg,Message.WParam,Message.LParam); // neu
  case Message.Msg of
    //
  end;
 // Message.Result := DefProc(FHandle,Message.Msg,Message.WParam,Message.LParam); alt
end;

So wird erst die ursprüngliche DefProc procedure aufgerufen, dann die von TControl und dann die von TEdit, also vom Allgemeinsten zum Speziellsten. So müsste es logischer und vorallem auch richtiger sein.

Nun habe ich versucht selbst Readonly zu implementieren und zwar ohne EM_SETREADONLY. Also habe ich es so versucht:

Delphi-Quellcode:

procedure TEdit.WndProc(var Message: TMessage);
begin
  inherited WndProc(Message);
  case Message.Msg of
    WM_CHAR: begin
               if FReadOnly then
                 Message.Result := 1; // alles <> 0 blockiert die Msg.
             end;
  end; 
end;

Das funktioniert aber nicht... Mache ich es andersrum, also das ich vom Speziellen WndProc zum allgemeinen gehe (also eigentlich falschrum?!) dann funktioniert es:

Delphi-Quellcode:

procedure TEdit.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_CHAR: begin
               if FReadOnly then
                 Message.Result := 1;
             end;
  end;
  inherited WndProc(Message);
end;

procedure TControl.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    // uninteressant, WM_CHAR wird hier nicht behandelt
  end;
  if Message.Result = 0 then
    Message.Result := DefProc(FHandle,Message.Msg,Message.WParam,Message.LParam);
end;

Woran liegt das?

Gruß
Neutral General