Делаю так:
Код: Выделить всё
procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
Memo1.Cursor:=crArrow;
end;Так не получается
Модератор: Модераторы
Код: Выделить всё
procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
Memo1.Cursor:=crArrow;
end;Код: Выделить всё
procedure TForm2.Memo1MouseEnter(Sender: TObject);
begin
Memo1.Cursor:=crArrow;
Memo1.Repaint;
end; Код: Выделить всё
procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
Screen.Cursor := crArrow ;
end;
procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
Screen.Cursor := crDefault;
end; pupsik писал(а):не круто, но - вариант. т.е. такого не предлагали.![]()
Код: Выделить всё
procedure TForm1.Memo1MouseEnter(Sender: TObject);
begin
Screen.Cursor := crArrow ;
end;
procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
Screen.Cursor := crDefault;
end;
Спасибо! Помогло!
pupsik писал(а):а то, судя по теме, вскоре лазаря переустановить бы предложили
pupsik писал(а):судя по теме, вскоре лазаря переустановить бы предложили
у..у: кажись цепанулопереустанавливать