Hints für nicht-Enabled-te Komponenten

[chris]

hi,

warum so kompliziert??

versuche es mal in etwa so:

Delphi-Quellcode:

[..]

public
 form1hint: string;
 edit1left, edit1top: integer;
end;

[..]

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1left:= edit1.left;
  edit1top:= edit1.top;
  edit1.enabled := false;
  edit1.showhint : true;
  edit1.hint := 'edit1hint';
  showhint := true;
  form1hint := 'form1hint'
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  rec: trect;
begin
  rec := rect(edit1left, edit1top, edit1left + edit1.width, edit1top + edit1.height);
  if (ptinrect(rec, point(x, y))) and (not edit1.enabled) and (edit1.showhint) then
    hint := edit1.hint
  else
    hint := form1hint
end;