Gegenteil von SetFocus?

[marabu]

Es geht auch noch anders:

Delphi-Quellcode:

procedure TDemoForm.MemoClick(Sender: TObject);
begin
  with Sender as TMemo do
    Tag := 1 - Tag;
end;

procedure TDemoForm.MemoEnter(Sender: TObject);
begin
  with Sender as TMemo do
    Tag := 0;
end;

procedure TDemoForm.ApplicationEventsIdle(Sender: TObject;
  var Done: Boolean);
begin
  with Memo do
    if Focused then
    if Odd(Tag)
      then ShowCaret(Handle)
      else HideCaret(0);
end;

Gute Nacht.

marabu

bisheringe - sind das Bismarck-Heringe?