ToolButton für 2 verschiedene RichEdit

[freak4fun]

Oder so:

Delphi-Quellcode:

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Memo1.Focused then
    Tag := 11
  else if Memo2.Focused then
      Tag := 12
  else
    Tag := 10;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Case Tag of
    10: ShowMessage('10');
    11: ShowMessage('11');
    12: ShowMessage('12');
  end;
end;

Ist bestimmt wieder zu umständlich, aber was solls.

MfG
freak